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WAITS COMMENTS 

3001 MAKE ANY DEVICE READY THAT IS TO BE TESTED, SEE 3.2, AND 
PRESS 1131 START. 

3002 LOG METER REi:DINGS OF THE METERIS) TO BE TESTED A,MD PRESS 
1131 START. AL'. UNITS SHOULD HAVE RESPONDED THAT WERE MADE 
READY EXCEPT RPO DEVICES. CHECK ANY DEVICE THAT DID NOT 
RESPOND FOR BEING R£ADY, SEE 3.2. 

END OF TEST. PRESS START TO REPEAT THE TIMING LOOP. 



3003 
RESTART 



IF IT IS DESIRED TO RESTART THE PROGRAM OR TO RERUN FROM THE 
BFGINNING. PRESS IMMEDIATE STOP. RESET AND START ON THE 1131. 
PRESS 1131 START TO RERUN TIMING PORTION OF THE TEST. 

POSITIONNING THE METER 

TO ALLOW FOR A MQRF ACCURARATE READING OF THE METER, START THE 
TIMING SEQUENCE AND ALLOW IT TO RUN UNTIL THE POINTER IS AT THE 
DESIRED POSITION. PRESS PROGRAM STOP. THIS WILL STOP THE PROGRAM 
WITH AN INTERRUPT LEVEL 5. PRESS START TO BEGIN THE TIMING SEQUENCE, 



PURPOSE- 



TO TEST THE ACCURACY OF THE USE AND CE METERS. 



PREREQUISITE 

2.1 PROGRAM- USE THE DIAGNOSTIC REL3CATABLE LOADER. 

2.2 EQUIPMENT- 4 K WORDS OF ".ORE STORAGE AND CUSTOMER ENGINEER METER KEY 

USF PROCEDURE 

3.1 USE THE DIAGNOSTIC LOADER FOLLOWED BY THIS PROGRAM. AT THE 1131 
CONSOLE PRESS RESET AND PROGRAM LOAD. ANY WAITS BELOW /0160 ARE 
PART OF THE LOADER AND SHOULD BE REFERENCED TO THE LOADER DESCRIPTION 

3.2 MAKE I/O UNITS READY IN THE FOLLOWING MANNER- 
DISK FILE- PLACE A DISK PACK IN THE DRIVE AND TURN THE POWER 

SWITCH ON. ALLOW TIME FOR THE DRIVE TO BECOME READY. 

1132 PRINTER- PLACE PAPER IN THE CARRIAGE, TURN ON THE POWER SWITCH 
AND PRESS 1132 START. 

1442 RDR/PCH- PLACE SOME CARDS IN THE HOPPER AND PRESS 1442 START. 



4. PRINTOUTS 

XX CPU SPEED. HAKF DEVICES READY FOR TESTING, THEN PRESS START 

WHERE XX IS THE CPU SPEED AS FOUND BY THE PROGRAM. MAKE ANY 
DEVICES READY THAT ARE TO BE TESTED, SEE 3.2, AND PRESS START ON 
THE 1131 AFTFR MAKING THE DEVICES READY. THE B-REG SHOULD BE /3001. 

THE FOLLOWING DEVICES RESPONDED- XXXX XXXX XXXX XXXX XXXX 

LOG MFTFR READINGS. PRESS START. 

XXXX INDICATES THE DEVICES THAT WERE READY AND RESPONDED TO A XIO 

COMMAND. IF A DEVICE DID NOT RESPOND THAT WAS MADE RFADY, DETERMINE 

WHY BEFORE CONTINUING THIS TEST. THE B-REG SHOULD BE /3C02. 

LOG METERtSI READINGS AND PRESS U3l START. 

5. COMMENTS 

USF THE CE METER KFV TO START THIS TEST. IF THE USE METERS ARE TO BE 
TESTED BE SURE TO VERIFY THIS ACTION WITH THE CUSTOMER. 

TIMING IS DONE WITH THE ACCUMULATOR AND WILL ADVANCE THE METER .02 FOR 
FACH PASS. AT WAIT 3003, END OF TEST. PRESS START TO TIME ANOTHER LOOP. 

A XIO COMMAND IS ISSUED TO ALL DEVICES AND THOSE THAT INTERRUPTED ARE 
RECORDED AND PRINTED ON THE CONSOLE PRINTER AS VERIFICATION. 

IF A DEVICE DOES NOT RESPOND. DETERMINE WHY BEFORE CONTINUING WITH THE TEST, 
SEE 3.2. 

THIS PROGRAM SPACES PRINTERS. READS DISK FILES AND CARDS SO THERE WILL BE 
NO DAMAGE TO ANY PACK, CARDS OR PAPER IN ANY OF THE I/O UNITS. 
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DATE 
EC NO. 



0160 

0160 0384 

0161 6162 

0162 4400 0?7B 

0164 032A 

0165 6500 038A 
0167 C400 020"? 

0169 DIBF 
016A OlD? 
016B DIED 
016C DIFF 
0160 C400 0222 
016F 019F 

0170 DICO 

0171 DIEE 

0172 6108 

0173 lOAO 

0174 DDOO OniE 

0176 71FE 

0177 a 70FC 

0178 7401 0027 

017A 6100 
017B 630F 
017C C400 0202 
017E DlOO 

Q17F C700 OlFl 

0181 0106 

0182 7101 

0183 73FE 

0184 70FA 

0185 6200 

0186 6E0O 0256 
0188 6700 07C0 
018A 084B 

018B 7400 02 56 
018D 7003 
OIBF 73FF 
013F 70FB 

0190 7004 

0191 7202 

0192 7700 FDOO 

0194 7202 

0195 0872 

0196 1004 

0197 4C20 0195 

0199 C600 OlEC 
01 9B 0400 032A 

0190 4400 07A5 
01 9F 0329 

OlAO CCOO 0002 
01A2 3001 

01A3 610B 
01A4 4400 02DA 
01A6 020A 



25JUN71 
571152 



ASS 
ORG 
PID DC 

BEGIN LOX 
8S1 
DC 

LDX 

LO 

STO 

STO 

STO 

STO 

LO 

STO 

STO 

STO 



/0160 
/03B4 



'GM ID 



CLR 



LDX 
SLT 
STO 

MDX 
MDX 
MUX 



START LDX 
LOX 
LO 
STO 

STARl LD 
STO 
MDX 
MDX 
MUX 

* 

LDX 
STX 
LDX 
XIO 

* 

STAR2 MOX 
MDX 
MOX 
MDX 
MDX 

* 

STAR4 MOX 
MDX 
MOX 

STAR 6 Xin 
SLA 
BSC 

* 

LD 
STO 

BSI 
DC 

LDD 
W300 1 DC 
* 

LOX 
BSI 
DC 



1 MSGX-MS61£1 
L $EBRT CONVERT F t3C TO R-T CODE 

MSGISI STARTING ADRS 

LI MSGX AORS OF MSG AREA 

L SCPTR GET TERMS AND RESTORE 

1 MSGIA-MSGX 

1 MSG2A-MSGX 

1 MSG3A-MSGX 

1 MSG4A-MSGX 

L K8181 GET DOUBLE CR 

1 MSGl-MSGX * 

1 MSG2-MSGX * 

1 MSG4-MSGX * 

1 8 
32 
LI 30 
I -2 
CLR 
L 39,1 

1 
3 15 
L S2313 

1 /oooo 

L3 S1442-1 

1 6 

1 1 
3 -2 

STARl 

2 
L2 INTR4 

L3 /0700 
SHIFT 

L INTR4,0 
STAR4 

3 -1 
STAR2 
STAR6 

2 2 
L3 -/0300 
2 2 

SCPTR 
4 
L STAR6,Z 

L2 D1403 
L MSGUl 

L $CPTP 
MSGl 

L /0002 
/3001 



CLEAR ACC AND EXT TO 
* CLEAR PRINT AREA 



SET TFRK BIT 



GET RESTART 

* AND STORE IN ZERO 

GFT BCH AND XFER VECTOR 

* AND STORE 
ADV POINTER 
REDUCE CTR 



SET XR 2 

CLEAR INTR ENTRY 
LOAD COUNT FACTOR 
ISSUE RIBBON SHIFT 

HAS INTK OCCURRED 

* YES 

* HO. 



ADJ SPEED CTR 

IS CPU 5.8 

* YES 

SENSE CUNS PTR DSW 

BCH IF STILL BUSY 

GET R-T CODE AND PUT IN 
« MESSAGE 

PRINT CPU SPEED 
MSG ADRS 



MAKF DEVICES RtADY 

1 RESPF-RFSPOei 
L $CLR CLEAR RESPONSE AREA 
RESPO AREA ADRS 



3B400020 

38400030 

3B400040 

3B400050 

38400060 

3B4000 70 

3B400080 

3B400090 

3B400100 

3B400110 

3B400120 

3B400130 

3S400140 

3B400150 

3B400160 

3BA00170 

36400180 

3B400190 

38400200 

38400210 

3B400220 

3B400230 

38400240 

38400250 

3B400260 

3B400270 

3B400280 

38400290 

33400300 

3B400310 

3B400320 

3B400330 

38400340 

3B40O350 

3B400360 

3B400370 

38400380 

38400390 

3B400400 

38400410 

3B400420 

3B400430 

3B400440 

3B400450 

38400460 

3B400470 

38400480 

38400490 

3B400500 

38400510 

3B400520 

38400530 

3B400540 

3B400550 

3B400560 

38400570 

38400580 

3B400590 

38400600 

3B4006 10 

3B400620 

3B400630 

38400640 

36400650 

38400660 

38400670 

38400680 

38400690 



01A7 6316 

OlAR OFOO OlDS 

OlAA 610C 

OlAB 7101 

01 AC 70FE 

OlAD 73FE 

01 AE 70F9 

OlAF 4400 02A5 
01 Bl 34 A 

01 82 610B 

01B3 630C 

01 84 C500 0209 

01H6 4C18 OIBF 

OIBB CFOO 035E 
OIRA DCOO 0374 

OIBC 4400 02A5 
OIBF 0374 
, OIRF 7302 
OICO 71FF 
OlCl 7CF2 

01C2 4400 02A5 
01C4 0378 

01C5 3002 

01C6 1000 

01C7 C600 01D8 

01C9 C DOOl 

OICA 6500 0000 

OICC 1010 

OICO 8400 0215 

OICF 4C10 OICO 

0101 71FF 

01 D2 7CF9 

01D3 3003 

0104 70F1 



01 D6 




0000 


0106 





0206 


01D7 





0900 


0108 





OOBF 


01D9 





3440 


OlDA 





0077 


01D8 





3480 


OlDC 





0049 


OIDD 





4402 


OlDE 





03 8 A 


OlDF 





2600 


OlEO 





038A 


OlEl 





eEoo 


01E2 





038A 


01E3 





9600 


01E4 





03 8A 


01E5 





9E00 


01E6 





038A 


01F7 





A600 


01E8 





0223 



* 
* 
* 

LOX 
STAR8 XIO 

LOX 
STAR 9 MOX 



ISSUE XIO TO EACH DEVICE AND TIME 
WAITING FOR THE INTERRUPT 

3 01442-H1132 
L3 H1132 ISSUE AN XIO 
1 
1 1 

STAR9 
3 -2 

STAR8 



ADJ FOR NEXT XIO 



READ METERS, PRESS START 
MSG ADRS 



1 RESPF-RESPOf.1 

3 
LI RESPO-1 
L STARCC- 



* DEVICES THAT RESPONDED 
BCH IF NO RESPONSE 



MDX 
MOX 
* 

BSI L SCPTR 
DC MSG2 

LDX 

LDX 
STARB LO 

BSC 
* 

LDD 

STD 

BSI 
DC 
ST ARC MOX 
MOX 
MOX 

BSI 
DC 

* 

W300? DC 
TIMEl NOP 

LD 

STO 
TIME2 LDX 
TIME3 SLA 
TIME4 A 

8SC 

MDX 

MOX 
W3003 DC 

MOX 

* 
* 
* 

BSS E 

SHIFT DC S2250 ft-T ADRS 

DC /0900 SHIFT tOCC 

HI 132 DC /OOBF 2.2 CPU CYCLE 

DC /3440 STOP 1132 PRINTER 

D1132 DC /0077 3.6 

DC /3480 START 1132. PRINTER 

01231 DC /0049 5.8 

DC /4402 1231 COMMAND 

D2310 DC BUFFR READ IN AREA ADRS 

DC /2600 READ HOME FILE 

D2311 DC BUFFR READ IN AREA ADRS 

DC /8E00 READ FILE # 1 

D2312 OC BUFFR READ I^J AREA ADRS 

DC /9600 READ FILE # 2 

02313 OC BUFFR READ IN AREA ADRS 
DC /9E00 READ FILE # 3 

02314 DC BUFFR READ IN AREA ADRS 
OC /A600 READ FILE # 4 

D2250 DC K2000 WRITE AORS 



L3 MSG3X 
L MSG3 

L tCPTR 

MSG3 
3 2 
1 -1 

STARB 

L SCPTR 
MSG4 

/3002 

L2 H1132 
*£1 

LI *-* 
16 

L KOOOl 

L TIME4,- 
1. -1 
TIME3 
/3003 
TIMEl 



GET R-T FOR DEVICE 
* AND STORE IN MSG 

PRINT OEVICE NAME 
".SG ADRS 
ADV POINTER 
ADJ COUNT 



PRINT REST OF MSG 
MSG ADRS 

READ METERS 

GET CPU SPEED FACTOR 

LOAD XK 1 WITH FACTOR 
CLEAR ACC FOR START 
ADO ONE TO ACC 
BCH IF ACC PLUS 
H EDUCE LOOP COUNT 

END OF TEST 
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3B400700 

3B400710 

3B400720 

3B 400 730 

3B400740 

3B400750 

3B400760 

38400770 

3B400780 

3B400790 

3B400800 

3B400810 

3B4O082O 

3B400830 

3B400840 

3B400850 

3B400860 

3B4008 70 

3B400880 

3B400890 

3B400900 

33400910 

38400920 

36 400930 

3B400940 

38400950 

38400960 

3B400970 

3B400980 

38 400990 

3B401000 

38401010 

3S401020 

38401030 

38401040 

38 40 10 50 

3B401060 

38401070 

38401080 

33401090 

3B401100 

38401110 

3S40112O 

38 401130 

3B40114C 

38 401150 

38401160 

3B401170 

38401180 

3B401190 

38401200 

36401210 

38401220 

38401230 

38401240 

3B401250 

38401260 

3B401270 

38401280 

38401290 

36401300 

36401310 

3B401320 

36401330 

38401340 

3B401350 

3B401360 

364013 70 
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01 E9 





CDOO 


OIEA 





03 8A 


01 EB 





4E00 


OlEC 





0808 


01 ED 





ACOO 


OlEE 





OCDO 


OlEF 





1402 


OlFO 





F4E4 


OlFl 





0300 


01F2 





0277 


01F3 





1703 


OIF* 





0256 


01F5 





4F01 


01F6 





0250 


01F7 





3701 


01F8 





0230 


01F9 





4701 


OlFA 





0229 


OlFB 





AFOl 


OlFC 





022 5 


OlFD 





2701 


OlFE 





017A 


OlFF 





8F01 


0200 





4C00 


0201 





9701 


0202 





6006 


0203 





9F01 


02 04 





2181 


02 05 





A701 


0206 





0500 


0207 





CFOl 


0208 





FFFF 


0209 





OFOl 


020A 





0000 


02 OB 





0000 


02 OC 





0000 


02 OD 





0000 


020E 





0000 


02 OF 





0000 


0210 





0000 


0211 





0000 


0212 





0000 


0213 





0000 


0214 





0000 


0215 





oooi 


0216 





0002 


0217 





0004 


0218 





0008 


0219 





004 


021A 





0080 


0218 





ooco 


02 IC 





OOFF 


0210 





0100 


021E 





oaao. 


02IF 





1000 


0220 





4000 


0221 





8000 


0222 





8181 


0223 





2000 


0224 





0224 



0225 0000 



DC 
D2501 DC 

OC 
D1403 DC 

DC 
01442 DC 

DC 
SILSW DC 

DC 
S1442 DC 

OC 
S2501 DC 

DC 
SI 132 DC 

DC 
S1231 OC 

DC 

51 403 DC 

DC 

52310 OC 
DC 

52311 DC 
DC 

52312 DC 
DC 

52 313 LOX 

DC 
S2314 DC 

DC 
S2250 OC 

OC 
SCPTR DC 

DC 

RESPO DC 
RESPl DC 
RESP2 DC 
RESP3 DC 
RESP4 OC 
RESP7 OC 
RESP9 DC 
RESPC DC 
RESPO DC 
RESPE DC 
RESPF DC 

KOOOl DC 
K0 002 OC 
K0 004 DC 
K0008 DC 
K0040 DC 
K0080 DC 
KOOCO DC 
KOOFF DC 
KOlOO DC 
K0 800 DC 
KIOOO DC 
K4000 OC 
K8000 DC 
K8181 DC 
K2000 DC 
OC 

* 
* 
* 

INTRO OC 



/CDOO 

BUFFR 

/4E00 

/D808 

/ACOO 

/OCDO 

/1402 

/F4E4 

/0300 

INTR5 

/I 703 

INTR4 

/4F01 

INTR3 

/3701 

INTR2 

/4701 

INTRl 

/AFOl 

INTRO 

/2701 

START 

/8F01 

/4C00 

/9701 

/0006 

/9F01 

/2181 

/A701 

/0500 

/CFOl 

/FFFF 

/OFOl 

♦— * 
♦-* 
*-* 
*-♦ 
♦-* 
*-♦ 
*-* 
*-♦ 
*-♦ 
*-* 
*-* 

/OOOI 
/0002 
/0004 
/0008 
/0040 
/0080 
/OOCO 
/OOFF 
/OlOO 
/0800 
/lOOO 
/4000 
/8000 
/8181 
/2000 
♦-1 



WRITE 2250 
READ IN AREA 
READ A CARD 
22 IN R-T CODE 
SPACE 140 3 
36 IN R-T CODE 
FEED A CARD 
58 IN R-T CODE 
SfeNSE ILSW 
INTR LVL 5 ADRS 
SENSE 1442 OSH 
INTR LVL 4 ADRS 
SENSE 2501 DSW 
INTR LVL 3 ADRS 
SENSE 1132 DSW 
INTR LVL 2 ADRS 
SENSE 1231 DSW 
INTR LVL 1 ADRS 
SENSW 1403 OSH 
INTR LVL ADRS 
SENSE 2310 DSW 
PGM START AORS 
SENSE 1ST FILE OSW 
BRANCH INSTRUCTION 
SENSE 2ND FILE OSW 
BCH TO ADRS 6 
SENSW 3RD FILE DSW 
SPACE/CARR RET 
SENSE 4TH FILE DSW 
SHIFT TO BLACK CODE 
SENSE 2250 DSW 
CONSTANT 
SENSE CONS PTR DSW 



2310 
2311 
2312 
2313 
2314 
1231 
2250 
1442 
2501 
1403 
1231 



RESPONDED 
RESPONDED 
RESPONDED 
RESPONDED 
RESPONDED 
RESPONDED 
RESPONDED 
RESPONDED 
RESPONDED 
RESPONDED 
RESPONDED 



CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

DOUBLE CR 

CONSTANT 

2250 SHORT BCH 



INTERRUPT LEVEL 
*-* INTR ENTRY 



38401380 

3B401390 

3B401400 

3B401410 

3B401420 

38401430 

3B401440 

3B401450 

3B401460 

3B401470 

3B401480 

3B401490 

3B401500 

36401510 

3B 401520 

3 B 40 15 30 

3B401540 

3B401550 

38401560 

3B401570 

3B401580 

3B401590 

3B401600 

3B401610 

3B401620 

3B401630 

3B401640 

3B401650 

38401660 

3B401670 

3B401680 

3B401690 

38401700 

3B401710 

3B401720 

3B401730 

38401740 

3B401750 

3B401760 

3B401770 

38401780 

3840 1790 

3B401800 

3B401810 

3B401820 

3B401830 

3B40I840 

38401850 

3B401860 

3B401870 

3B401880 

3B401890 

3B401900 

3B401910 

3B401920 

38401930 

3B401940 

3B401950 

3B401960 

3B401970 

3B401980 

38401990 

3B402000 

3B402010 

3840 20 20 

3B4020 30 

3B402040 

3B402050 



0226 08CB 

0227 4CC0 0225 



0229 0000 
022A 08CB 
022B 08AC 
022C COFO 
022D DOEl 
022E 4CC0 0229 



0230 0000 

0231 6104 

0232 086D 

0233 

0234 



1140 
C400 0001 

0236 1002 

0237 D400 0001 

0239 4000 023B 

023B 08C8 
023C COEl 
02 3D DODO 
023E 700F 

023F 08C2 

0240 CODE 

0241 DOCB 

0242 7008 

0243 n 08BC 

0244 CODE 

0245 D0C6 

0246 7007 

0247 08B6 

0248 C0D7 

0249 onci 

024A n 7003 

024B 0880 
024C C0D4 
0240 DOBC 
024E 4CC0 0230 



0250 0000 

0251 08B4 
02 52 C0C6 

0253 DOBC 

0254 4CC0 0250 



XIO S1442 RESET DSW 

BOSC I INTRO RETURN TO PGM 

* 

* INTERRUPT LEVEL 1 

INTRl DC *-* INTR ENTRY 
XIO S1132 RESET DSW 
XIO H1132 HALT 1132 PRINTER 
LD KOlOO GET RESPONSE INDICATOR 
STO RESP7 SET INDICATOR 

BOSC I INTRl RETURN TO PGM 

* INTERRUPT LEVEL 2 



INTR2 DC 
LOX 
XIO 
SLCA 
LD 
SLA 
STO 
BSC 

INTRH XIO 
LD 
STO 
MDX 

XIO 

LD 

STO 

MDX 

XIO 
LO 
STO 
MOX 
* 

XIO 
LD 
STO 
MOX 

* 

XIO 

LO 

STO 

INTRW BOSC 



1 



*-♦ INTR ENTRY 

4 

SILSW SENSE OEIVICE 

FIND DEVICE CAUSING INTR 

/OOOI GET CONTENTS OF XR I 

2 MULT BY 4 

/OOOI SET CONTENTS OF XR 1 

INTRH BCH TO DEVICE RTN 

S2314 RESET FILE DSW 

K0800 GET RESPONSE INDICATOR 

RESP4 SET INDICATOR 

INTRW BCH TO EXIT 

S2313 RESET FILE DSW 

KIOOO GET RESPONSE INDICATOR 

RESP3 SET INDICA^rOR 

INTRW BCH TO EXIT 

S2312 RESET FILE DSW 

K2000 GET RESPONSE INDICATOR 

RESP2 SET INDICATOR 

INTRW BCH TO EX IT 

S2311 RESET FILE DSW 

K4000 GET RESPONSE INDICATOR 

RESPl SET INDICATOR 

INTRW BCH TO EXIT 

S2310 RESET FILE DSW 

K8000 GET RESPONSE INDICATOR 

RESPO SET INDICATOR 

INTR2 RETURN TO PGM 



3B402060 

38402070 

3B402080 

3B402090 

3B402100 

3B402110 

3B402120 

3B402130 

3B402140 

3B 402 150 

3B402160 

3B 402 170 

3B402180 

38402190 

3B402200 

3B4022I0 

3B402220 

3B402230 

38402240 

3B402250 

3B402260 

3 B 40 2 2 70 

3B402280 

3B402290 

3B402300 

38402310 

3B402320 

3B402330 

3B402340 

3B402350 

3B402360 

3B402370 

3B402380 

3B402390 

3B402400 

3B402410 

3B402420 

38402430 

3B 40 2440 

38402450 

3B402460 

3B402470 

38402480 

3B402490 

3B402500 

3B402510 

3B402520 

3B402530 

3B402540 

3B402550 

3B402560 



♦♦♦♦♦♦♦♦♦*»*«*«**:»****»^»^^^^^,^^^^^^,,^^^^^^^^^^^, 3B402570 



INTERRUPT LEVEL 3 



*«♦*♦*♦* ♦«*JK,<,**»**»^»,**^^^^,;^;^„^^^^^^^^^^^^,^^^^ 



INTR3 



DC 

XIO 

LD 

STO 

BOSC 



I 



*-* INTR ENTRY 

S2250 RESET 2250 OSW 

K0040 GET RESPONSE INDICATOR 

RESP9 SET INDICATOR 

INTR3 RETURN TO PGM 



0256 0000 

0257 6105 



****** ************m****************m*************^* 

* 

* INTERRUPT LEVEL 4 

*******************^**^*^^^*^^^^:^i^^,^^^^^^^^^^^^^^^^ 

INTR4 DC ♦-* INTR ENTRY 
LDX 1 5 



3B402580 
3B402590 
3B402600 
3B402610 
3B402620 
3B402630 
38402640 
3B402650 
3B402660 
3B402670 
3B4026S0 
3B402690 
iB402700 
3B4027IO 
38402720 
38402730 



DATE 
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PART NO. 
PAGE 



58 89431 
3A 



V_- 



V_' 



^ 



02 5 8 





0897 




0259 





1140 




025A 





C400 


00 01 


02 5C 





1002 




0250 





0400 


0001 


025F 





4000 


0261 


0261 









0261 





0896 




0262 





C0B2 




0263 





OOBO 




0264 





7010 




0265 





0894 




0266 





COAF 




0267 





DOAB 




026 8 





700C 





0269 088A 
026A COAC 
026R D0A6 
026C 7008 

026D 0884 

02 6E C0A9 

026F DOAl 

0270 7004 

0271 0896 

0272 1000 

0273 1000 
02 74 7000 

0275 n 4CC0 0256 



0277 0000 

0278 3005 

0279 4C40 01C6 



02 7B 
02 7C 
027E 
02 7F 
02 80 
0281 
0283 
0285 
0286 
0287 
0288 
0289 
028A 
028C 
02 8E 
0290 



0000 

C48C 027ri 
0003 
6A1A 
6822 

C400 0000 
7400 02A3 
1808 
E095 
9093 
4828 
8090 

D400 0003 
C700 02E9 
7400 02A3 
700E 



INTRS 



xin 

SLCA 

LD 

SLA 

STO 

BSC 

EQU 
XIO 
LD 
STO 

MOX 

xin 

LO 
STO 

MOX 

XIO 

LO 

STO 

MOX 

Xin 

LD 
STO 

MOX 

XIO 
NOP 
NOP 
MOX 



SILSW 

1 
L /OOOl 

2 
L /OOOl 
LI INTRS 

* 
S1231 

KOOOl 
RESPF 
INTRX 

S1403 
K0002 
RESPE 
INTRX 

S2501 
K0004 
RESPD 
INTRX 

S144? 

K0008 
RESPC 
INTRX 

SCPTR 



INTRX 



* 
INTR 

**** 
* 
* 
* 

INTR 
W300 

**♦* 

* 

* 
* 
* 
* 

tEBR 



X 8QSC I INTR4 



SENSE DEIVICF 

FIND DEVICE CAUSING INTR 

GET CONTENTS OF XR 1 

MULT BY 4 

SET CONTENTS OF XR 1 

BCH TO DEVICE RTN 



RESET 1231 DSW 

GET RESPONSE INDICATOR 

SET INDICATOR 

BCH TU EX IT 

RESET 1403 OSW 

GET RESPONSE INDICATOR 

SET INDICATOR 

BCH TO EXIT 

RESET 2501 DSW 

GET RESPONSE INDICATOR 

SET INDICATOR 

BCH TO EX IT 

RESET 1442 DSW 

GET RESPONSE INDICATOR 

SET INDICATOR 

BCH TO EXIT 

RESET CONS PTR DSh 



BCH TO EXIT 

RETURN TO PGM 
N******* ******** *******««»*** 



INTERRUPT LEVEL 5 



**************** ***s 
5 DC *-* 

5 OC /3005 

60SC L TIMEl 
************** *****s 



*************************** 
INTR ENTRY 
INTR LEVEL 5 
RESTART TIMIN 

**************: 



WAIT 
iG LOOP 
>************* 

* 



$EBR2 



LDX 
BSI 
OC 

USES 

****** 

DC 

LO 

STO 

STX 

STX 

LD 

MOX 

SRA 

AND 

S 

BSC 

A 

STO 

LO 

MOX 

MOX 



1 



CONVERT EfsDIC TO ROT-TILT 

ITICNS 



X 

L $EBRT 
ADRS 

XRl, XR 2 
*************=! 

*-* 

SE8RT 

$EBR2&1 

SEBRXEl 

tEBRS 

*-* 

$hBRS,0 

8 

KOOFF 

KOOCO 

£Z 

K0080 
L /0003 
L3 ROT 
L $EBRS,0 

$EBR6 



I 



L 



NUMBER OF POS ! 
CONVERT CODE 
ADPS OF CODE 



t************* 
ROUTINE ENTRY 
GET CADE AOPS 



SAVE XR 
SET FLI 
GET COD 
IS F-F 

* YES 
SAVE BI 
ADJ EBC 
IS VALU 

* NO 
STORE I 
GET ROT 
IS F-F 

* YES 



2 
P/FLOP 
E FOR 
SU SET 

TS 8-1 

CODE 
E GREA 

N XR 3 
-TILT 
SW SET 



* 
* 

* 

* 

* 
* 

************* 
* 
♦ 
* 
* 
SWITCH * 

CONVERSION * 
« 
« 

5 * 

* 

TER THAN CO * 
* 
* 

VALUE ♦ 

* 



3B402740 

3B402750 

3B402760 

3B402770 

3B402780 

3B402790 

3B402800 

38402810 

3B402820 

36402830 

3B402840 

3B402850 

38402860 

3B402870 

3B402880 

3B 402890 

3B402900 

38402910 

3B402920 

3B402930 

3B402940 

3B4029 50 

3B 402960 

3B402970 

3B402980 

38402990 

3B403000 

3B403010 

3H 403020 

3B403030 

3B 40 30 40 

3B4030 50 

3B403060 

3B403070 

38403080 

3B4030 90 

3B403100 

36403110 

3B403120 

3B403130 

38403140 

38403150 

3B403160 

3B403170 

3B403180 

3B403190 

3B403200 

3B403210 

3B403220 

38403230 

3B403240 

3B403250 

3B 403260 

38403270 

3B403280 

3B403290 

3B403300 

3B403310 

3B403320 

3B403330 

36403340 

3B403350 

3B403360 

3B403370 

3B403380 

3B403390 

3B403400 

3B403410 



0291 O 1808 

02 92 E 8 1 1 

0293 O 0480 0282 

0295 7401 0282 

0297 71FF 

0298 70E7 

0299 6600 0000 
029B 7401 027B 
0290 4C80 077'3 

029F n 0004 
07 AO 1010 
02A1 OOOl 
02A2 70aE 

02A3 0000 
02A4 0000 



02A5 
02A6 



0000 
C40C OOOC 



02A8 laoo 

02Aq Cn2A 
02AA D400 OOOC 
02AC ^ C430 07A5 
02 AF DOOl 
02AF C40r 0000 
"2B1 D026 
02 B2 F026 
02B3 4818 
0284 7012 



0285 





081E 


02 66 





1005 


02B7 





4828 


0288 





3061 


02B9 





081C 


023A 





3062 


0?BO 





COIC 


02HC 





1008 


02 BD 





DOIA 


02BE 





0815 


02 BF 





1005 


02CC 





4828 


02C1 


c 


3061 


02 C2 





0813 


02 C 3 





306 3 



02C4 7401 028!"' 

02C6 o 70E8 

02C7 7401 02A5 

02C9 1800 

02CA D40C OOOC 

02CC 4C80 02A5 





SRA 




8 




OR 




TEMP 




STO 


I 


$EBR2C1 




MOX 


L 


$EBR2&1, 1 




MOX 


1 


-i 




MOX 




tEBR2-l 


* 








$EBRX 


LDX 


L2 


*-* 




MOX 


L 


$EBRT,1 


* 


BSC 


I 


SEBRT 


$F8R6 


STO 




TEMP 




SLA 




16 




STO 




$EBRS 


* 


MDX 




tEBR2 


tEBRS 


DC 




*-* 


TEMP 


DC 




*-* 


********«*, 


*************, 



****«****<, 
ICPTR DC 
LO 
RTF 
LO 
STO 
LO 
STO 
$CP-i2 LO 
STO 
EGR 
BSC 
MDX 

xin 

SLA 
BSC 
DC 
XIO 
DC 
LO 
SLA 
STC 
XIO 
« 

SLA 
BSC 
DC 
XIO 
DC 
MOX 
MDX 
* 

tCP08 MOX 
RTE 



* NO, POSITION VALUE 

* AND GET 1ST VALUE 
STORE IN CODE AREA 
ADV AREA ADRS 

ADJ CTR 



RESTORE XR 2 
ADJ RETURN ADRS 
RETURN TO MAINLINE 

SAVE VALUE IN STG 
CLEAR ACC AND 
* F-F SWITCH 
00 2N0 HALF 

FLIP-FLOP SWITCH 

TEMPPRY STG 

*************** ^JJ-^^f:^^^^^^^,^,.^^^^^^^^^^ 

CONSOLE PRINTER ROUTINE 
CALLING SEQUENCE 



* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



BSI 

DC 



tCPTR 
AOf^S 



USE CONS PTR RTN 
PRINT AREA ADRS 



TERM MSG WITH /FFFF 
************************,^^^^^^^^^^^^^^^ 



*-* 

/OOOC 

16 

tCDSW 

/OOOC 

tCPTR 

$CP02£1 

*-* 

tCPDT 
tFFFF 

+- 
$CP08 

$CDSW 

5 

+ Z 

/3061 

tCPRT 

/3062 

tCPDT 

8 

$CPDT 

tCDSW 



RTN ENTRY 

GET OLD XFER VFCTOR 

* AND SAVE IT IN U-REG 
GET IMTk ADRS AND 

* SET IN XFER VECTOR 
GET PRINT AREA ADRS 

GET ROT-TILT CODE 
SAVE 



SENSE OSW 

IS CONS PTR ROY 

* NO 

PRINT A CHARACTER 
WAIT FOP INTR 
GET CHAP 

* AND SHIFT TO PRINT 
SAVE 

SENSE OSW 



STO 
BSC 



5 

*l IS CUNS PTR ROY 

/3061 * NO 

tCPPT PRINT A CHARACTER 

/3063 WAIT Fl3R INTR 

$CP02tl,l ADV PRINT AREA AORS 

SCP02 

SCPTR, 1 ACJ RETURN AORS 

16 GET OLD XFER VECTOR 

/OOOC * AND RESTORE 

$CPTR RETURN TO MAINLINE 



3B403420 
3B 40 34 30 
3B403440 
3B403450 
3B403460 
3B403470 
3B40 3480 
3B403490 
3B403500 
3B403510 
3B403520 
3B403530 
38403540 
36403550 
3B403560 
38403570 
3B403580 
3B403590 
3B403600 
** 38403610 
3B403620 
3B403630 
3B403640 
3B403650 
3B403660 
3B403670 
36403680 
38403690 
3B403700 
38403710 
3B403720 
3B403730 
3B403740 
3B403750 
3B40 3 760 
36403770 
38403780 
3S403790 
3B403800 
3B403810 
3B403820 
3B403B30 
3B403840 
3B403850 
3B403860 
3B403870 
3B403880 
38403890 
33403900 
3B403910 
3B403920 
3B403930 
36403940 
3B40 3950 
3B403960 
3840 3970 
38403980 
36403990 
36404000 
38404010 
3B404020 
3B404030 
38404040 
3B404050 
36404060 
3B404070 
3B404080 
38404090 
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PART NO. 
PAGE 



5889431 
4A 



02CE 0000 
02CF 0804 
02D0 4810 
02D1 306F 
02D2 4CC0 02CE 



02 D4 
0204 
02D5 



0000 
02CE 
OFOl 



02D6 02D8 
02D7 0900 







02 D8 
0209 



0000 
FFFF 



$6 INT DC *-♦ INTR ENTRY * 

XIO $CDSW SENSE OSK » 

BSC - IS SERVICE RESPONSE ON * 

DC /306F * NO ♦ 

BOSC I t61NT RETURN TO SU6RTN ♦ 

* * 

Bss e ♦ 

$CDSW DC $6INT INTR RTN AORS * 

DC /OFOl SENSE DSW lOCC * 

tCPRT DC $CPDT PRINT DATA AORS * 

DC /0900 PRINT lOCC * 

tCPOT DC *-* PRINT DATA * 

$FFFF DC /FFFF CONSTANT ♦ 

CLEAR AREA OF ALL BITS 



LOX 
BSI 
DC 

USES 



1 



xxxx 

$CLR 
AORS 

XR 1 



NUMBER OF POSITIONS 
USE CLEAR ROUTINE 
ADRS OF AREA 



02DA 0000 

02DB C480 020A 

02DD 900A 

02DE D004 

02DF 7401 020A 

02E1 1010 
02E2 D500 0000 
02E4 71FF 
02E5 70FC 

02E6 4C80 02DA 

02E8 0001 



**♦*♦♦************♦*♦♦*«***** ********«**#^** **#**** 



*CLR 



DC 
LO 
S 
STO 

MOX 



SLA 
tCLR2 STO 



MDX 
MOX 



LI 
I 



*-* 

$CLR 

$CLR1 

tCLR261 

$CLR,1 

16 
♦-* 
-1 
$CLR2 



BSC 1 tCLR 



tCLRl DC 



/OOOl 



RTN ENTRY * 

GET AREA ADRS * 

AOJ ADRS * 

* AND BUILD INSTRUCTION * 
AOV RETURN AORS * 

* 
* 

* 

* 
* 



CLEAR ACC 

* STORE IN AREA 



RTN EXIT 



CONSTANT 

* 
* 





02E9 


2100 




02 E A 


3E00 




02EB 


lAOO 




02EC 


lEOO 




02ED 


3200 




02EE 


3600 




02EF 


1200 




02F0 


1600 




02F1 


2600 




02F2 


2200 




02 F3 


0200 




02F4 


0000 




02 F5 


DEOO 




02F6 


FEOO 




02F7 


DAOO 




02F8 


C600 




02F9 


4400 




02FA 


7E00 




02FB 


5A00 




02 FC 


5E00 




02FD 


7200 




02FE 


7600 




02FF 


5200 




0300 


5600 




0301 


6600 




0302 


6200 


DATE 


25JUN71 


fC NO. 


571152 



ROT 



DC 


/2100 


SPACE 


DC 


/3E00 


A 


DC 


/lAOO 


B 


DC 


/lEOO 


C 


DC 


/32O0 


D 


DC 


/3600 


E 


DC 


/1200 


F 


DC 


/1600 


G 


DC 


/2600 


H 


DC 


/2200 


I 


DC 


/0200 


CENT 


OC 


/OOOO 


PFRIOO 


DC 


/DEOO 


GREATER 


DC 


/FEOO 


L 8KT 


DC 


/DAOO 


+ 


DC 


/C600 


LOGICAL OR 


DC 


/4400 


AMPERSAND 


DC 


/7EO0 


J 


OC 


/5AO0 


K 


DC 


/5EO0 


L 


DC 


/7200 


H 


OC 


/76O0 


N 


DC 


/5200 


n 


DC 


/5600 


p 


DC 


/6600 





DC 


/6200 


R 



3B404100 

3B 4041 10 

3B404120 

3B404130 

3B 404140 

38 4041 50 

3B404160 

3B404170 

3B404180 

38404190 

3B404200 

3B404210 

38404220 

3B 404230 

3B404240 

3B 40 42 50 

39404260 

33404270 

3B404280 

3B404290 

3B404300 

3B404310 

39404320 

3B404330 

3B404340 

33404350 

3B404360 

33404370 

38404380 

3B404390 

3B404400 

3B404410 

38404420 

3B404430 

3B404440 

3B 404450 

38404460 

38 404470 

3B404480 

38404490 

3B404500 

3B 4045 10 

38404520 

38404530 

3B404540 

3B404550 

36 404560 

38404570 

38404580 

38404590 

3B404600 

3B404610 

3B404620 

38404630 

3B404640 

3B404650 

3B404660 

3B404670 

38404680 

3B404690 

3B404700 

3B404710 

3B404720 

3B404730 

3B404740 

38404750 

38404760 

38404770 



PROG ID 
PAGE 



3B4-0 

4 



DATE 
EC NO. 



0303 4200 




DC 


/4200 


EXCLAIMATION 


♦ 3B404780 


0304 4000 




DC 


/4000 


J 


♦ 3B404790 


0305 0600 




DC 


/D600 


* 


♦ 3B404800 


0306 F600 




DC 


/F600 


R BKT 


* 38404810 


0307 D200 




DC 


/0200 


SEMICOLON 


♦ 3B404820 


0308 F200 




OC 


/F200 


LOGICAL NOT 


* 3B404830 


0309 8400 




DC 


/8400 


- 


♦ 38404840 


030A BCOO 




OC 


/BCOO 


/ 


* 3B404850 


030B 9A00 




DC 


/9A00 


S 


* 3B404860 


030C 9E00 




DC 


/9E00 


T 


* 3B404870 


030D B200 




DC 


/B200 


U 


* 38404880 


030E B600 




DC 


/B600 


V 


♦ 3B404890 


030F 9200 




DC 


/9200 


w 


* 3B404900 


0310 9600 




DC 


/9600 


X 


* 3B404910 


0311 A600 




DC 


/A600 


Y 


* 3B404920 


0312 A200 




DC 


/A200 


Z 


♦ 38404930 


0313 2100 




DC 


/2100 




* 3B404940 


0314 8000 




OC 


/8000 


COMMA 


♦ 3B404950 


0315 0600 




DC 


/0600 


PERCENT 


♦ 3B404960 


0316 BEOO 




DC 


/BEOO 


UNDERSCORE 


* 3B404970 


0317 4600 




DC 


/460C 


LESS THAN 


* 3B404980 


0318 8600 




DC 


/8600 


QUESTION 


* 38404990 


0319 C400 




DC 


/C400 





* 38405000 


031A FCOO 




OC 


/FCOO 


1 


♦ 3B405010 


03 IB 0800 




OC 


/0800 


2 


♦ 3B405020 


031C OCOO 




DC 


/OCOO 


3 


* 3B405030 


0310 FOOO 




OC 


/FOOO 


4 


* 3B405040 


031 E F400 




DC 


/F400 


5 


* 3B405050 


031F C DOOO 




DC 


/DOOO 


6 


♦ 38405060 


0320 C 0400 




DC 


/D400 


7 


♦ 3B405070 


0321 F400 




DC 


/E400 


8 


* 39405080 


032? n EOOO 




DC 


/EOOO 


9 


* 38405090 


0323 8200 




DC ■ 


/8200 


COLON 


* 36405100 


0324 cono 




DC 


/COOO 


NUMBER SI GN 


* 3B405110 


0325 0400 




DC 


/0400 


EACH SIGN 


* 38405120 


0326 66)0 




DC 


/E600 


APOS 


* 3B405130 


0327 C200 




DC 


■ /C200 


= 


* 3B405140 


0328 E200 


* 


DC 


/E200 


QUOTES 


♦ 3B405150 
3B405160 


0329 8181 


MSGl 


OC 


/8181 


DOUBLE CR 


3B405170 


032A 0016 




EBC 


CPU 


SPEED, MAKE DEVICES READY. 


38405180 


033A 0015 




E8C 


. FOR TESTING, THEN PRESS START. 


38405190 


0349 FFFF 


MSGIA 

* 


DC 


/FFFF 


TERM 


3B405200 
3B405210 


034A 8181 


MSG2 


DC 


/8181 


DOUBLE CR 


3B405220 


0348 0017 




EBC 


.THE FOLLOWING DEVICES RESPONDED- 


3840 5230 


035C FFFF 


MSG2A 

* 


DC 


/FFFF 


TERM 


3B405240 
3B 40 52 50 


035E onoo 




BSS E 




3B405260 


035E 0002 


MSG3X 


EBC 


.1231. 




38405270 


0360 0002 




EBC 


.1403. 




3B405280 


0362 0002 




EBC 


.2501. 




3B405290 


0364 0002 




ESC 


. .1442. 




3B40530O 


0366 0002 




EBC 


.2250. 




38405310 


0368 0002 




EBC 


.1132. 




38405320 


036A 0002 




EBC 


.FIL4. 




3B405330 


036C 0002 




EBC 


.FIL3. 




3B405340 


036E OOC? 




EBC 


.FIL2. 




3B405350 


0370 0002 




EBC 


.FILL 




3B405360 


0372 0002 




EBC 


.FILO. 




38405370 


0374 0003 
0377 FFFF 


HSG3 
MSG3A 


ESC 
DC 


/FFFF 


TERM 


38405380 
3B405390 


0378 8181 


* 

MSG4 


DC 


/8181 


DOUBLE CR 


3B 405400 
38405410 


0379 0016 




EBC 


.LOG METER READINGS, PRESS START . 


3B405420 


0389 FFFF 


MSG4A 


DC 


/FFFF 


TERM 


3B405430 


03 8 A 


MSGX 


EQU 


* 


, 


38405440 
38 40 5450 
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038A 0050 BUFFR DC 80 

03 8B 0050 BSS 80 

* 
03DC CI61 END BEGIN 

NO STATEMENTS FLAGGED IN THE ABOVE ASSEMBLY 



WORD COUNT 
READ AREA 



3B405460 
3B405470 
3B405480 
38405490 



^- 



$cosw 


0204 


02A9 0235 


02BE 


02CF 




iCLR 


02DA 


01A4 020B 


02DF 


02E6 




$CLR1 


02E8 


200 








$CLR2 


02E2 


02DE 02E5 








iCPOT 


02 08 


02B1 02BB 


02B0 


0206 




tCPRT 


0206 


0289 02C2 








tCPTR 


02A5 


019D OlAF 


OIBC 


01C2 


02AC 02C7 02CC 


$CP02 


02AF 


02AE 02C4 


02C6 






tCP08 


02C7 


02B4 








$EBRS 


02 A3 


0280 0283 


028E 


02A1 




tERRT 


027b 


0162 027C 


029B 


0290 




$EBRX 


0299 


027F 








tFBR2 


0281 


027E 0293 


0295 


0298 


02A2 


$EBR6 


029F 


0290 








$FFFF 


02D9 


02B2 








$6INT 


02CE 


0202 0204 








BEGIN 


0161 


n30C 








SUFFR 


C3aA 


OlDE OlEO 


01E2 


01E4 


01E6 OlEA 


CLR 


0174 


0177 








01132 


OlOA 










01231 


OlDC 










U14C3 


OlEC 


0199 








D1442 


OlEE 


01A7 








D?2'50 


OlER 










D2310 


OlDE 










D2 3H 


OlEC 










02 312 


01E2 










02313 


01E4 










02 314 


01E6 










02501 


OlEA 










H1I32 


0108 


01A7 01A8 


01C7 


022B 




INTRH 


023B 


239 








INTRS 


C26 1 


25F 








INTRW 


024E 


02^E 0242 


0246 


0244 




INTRX 


0275 


0264 0268 


'^26C 


0270 


0274 


INTRO 


0225 


OlFC 02 27 








INTRl 


022^5 


OlFA 322E 








INTR2 


0230 


OlFa 024E 








INTR3 


0250 


01F6 0254 








TNTR4 


0255 


0186 01 88 


01F4 


02 75 




INTR5 


0277 


01F2 








Kooro 


n2lB 


0237 








KOOFF 


021C 


"286 








KOOOl 


0215 


OICD 0262 








K0002 


0216 


266 








K0004 


0217 


026A 








K0008 


0218 


026E 








K0040 


0219 


0252 








Koosn 


021A 


0289 








KOion 


0210 


022C 








K0800 


021E 


T23C 








KIOOO 


02.1 F 


0240 








K2000 


0223 


01E3 0244 








K4000 


0220 


0248 








K8000 


0221 


024C 








K8181 


0222 


0160 








MSGX 


038A 


0161 0165 


]169 


T16A 016B 016C 016F 


MSGl 


0329 


0161 0164 


316F 


0198 019F 


MSGIA 


0349 


0169 








MSG2 


034A 


0170 OlBl 








MSG2A 


035C 


016A 








MSG3 


0374 


OIHA OIBE 








MSG3A 


0377 


168 








MSG3X 


035E 


01R8 








MSG4 


0378 


0171 01C4 








MSG4A 


0389 


016C 








PID 


0160 










RESPC 


0211 


026F 
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RESPn 


0212 


026B 








RESPE 


0213 


02&7 








RESPF 


0214 


01A3 


0132 


0263 




RESPO 


020A 


01A3 


01A6 


01B2 01P4 


0240 


RESPl 


020B 


249 








RESP2 


020C 


024 5 








RFSP3 


020D 


241 








RFSP4 


020E 


2 30 








RESP7 


02nF 


0??0 








RESP9 


0210 


0253 








ROT 


02E9 


02 3C 








SCPTR 


0208 


016 7 


0195 


0271 




SHIFT 


0106 


018A 








SILSW 


OlFC 


0232 


0258 






STAPB 


01B4 


OlCl 








STARC 


OIBF 


01B6 








START 


017A 


niFF 








STARl 


017F 


0184 








STAR2 


0183 


018F 








STAR4 


0191 


018D 








STAR6 


0195 


0190 


0197 






STARS 


01A8 


OlAE 








STAR9 


OlAB 


01 AC 








S1132 


01F6 


22 A 


'^ 






SI 23 1 


oirn 


0261 








S1403 


OlFA 


0265 








SI 442 


01F2 


017F 


0226 


0260 




S2250 


0206 


0106 


0251 






S2310 


OlFC 


0248 








S2 311 


OlFE 


0247 








S2312 


02n0 


0243 








S2313 


02 02 


017C 


02 IF 






S2314 


0204 


02^8 








S2501 


01F4 


0269 








TEMP 


02 A4 


029 2 


a29F 






TIMEl 


01 C6 


0104 


02 79 






TIME2 


OICA 










TIME3 


OICC 


0102 








TIME4 


01 CO 


OICF 








W3101 


01A2 










W3002 


01C5 










W30n3 


0103 










W3005 


0278 










END OF 


ASSEMBLY 
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PARAGRAPH 



PAGE 



1. PURPOSE ••- • 1 

2. PREREQUISITES 1 

2.1 PROGRAM PREREQUISITES 

2.2 EQUIPMENT PREREQUISITES 

3. USE PROCEDURE .■ I 

3.1 PROGRAM LOADING 

3.2 OPERATING PROCEDURE 

3.3 PROGRAM HALTS 

4. PRINTOUTS INONEI 

5. COMMENTS • 2 

6. APPENDIX (NONEI 



2. 



3.2 



1. PURPOSE 



THE CORE ADJUSTMENT PROGRAM LOADS CORE WITH THE BEST CASE AND 
COMPLEMENT BEST CASE PATTERNS SPECIFIED IN THE ENGINEERING 
SPECIFICATIONS FOR SJ2 AND SJ4 STORAGE. THIS PATTERN ALLOWS 
ADJUSTMENT OF THE CORE VOLTAGES AS SPECIFIED IN THE 1130 MAINTENANCE 
MANUAL* 



PREREQUISITES 

2.1 PROGRAN PREREQUISITES 

THE CORE ADJUSTMENT PROGRAM IS LOADED BY THE 1130 RELOCATING 
LOADER. 



2.2 



EQUIPMENT PREREQUISITES 



A. 

B. 



1131 CPU 

CARD OR PAPER TAPE READER 



3. USE PROCEDURE 

3.1 PROGRAM LOADING 



3.1.1 TO LOAD FROM CARDS 

A. PLACE RELOCATING LOADER AND PROGRAM DECK IN READER. 

B. MAKE READER READY. 

C. PRESS THE 1131 RESET KEY. 

D. PRESS THE 1131 PROGRAM LOAD KEY. 

E. IF PROGRAM FAILS TO LOAD OR STOPS AT A WAIT BELOW 
LOCATION 0160t REFER TO RELOCATING LOADER DOCUMENTATION. 



3.1.2 TO LOAD FROM PAPER TAPE 

A. PLACE THE PAPER TAPE RELOCATING LOADER IN THE READER. 

B. MAKE READER READY. 

C. PRESS THE 1131 RESET KEY. 

D. PRESS THE 1131 PROGRAM LOAD KEY. 

E. THE LOADER SHOULD HALT AT WAIT 30F6 (B REG). 

F. PLACE THE CORE ADJUST PROGRAM TAPE IN THE READER. 

G. MAKE READER READY. 

H. MANUALLY SET THE INSTRUCTION ADDRESS REG TO /0078. 

I. SET MODE SWT TO RUN AND PRESS PROGRAM START. 

J. IF PROGRAM FAILS TO LOAD OR STOPS AT A WAIT BELOW 

LOCATION 0160t REFER TO RELOCATIING LOADER DOCUHENTAION. 



OPERATING PROCEDURE I SEE SECTION S. 



FOR FURTHER DETAILS) 
SET 



A. AFTER LOADING THE PROGRAM WILL STOP AT WAIT 3001. 
SWITCHES 14 AND IS AS DESIRED. 

SWT 15. .ON.. LOAD CORE WITH COMPLEMENT BEST CASE PATTERN. 
..OFF. LOAD CORE WITH BEST CASE PATTERN. 

SWT 14. .ON. .EXECUTE HIGH CORE ADJUST SECTION OF PROGRAM. 
..OFF. EXECUTE LOW CORE ADJUST SECTION OF PROGRAM. 

B. PRESS THE 1131 PROGRAM START BuYTON. 

C. THE PROGRAN WILL RUN BRIEFLY LOADING CORE WITH THE PATTERN 
SELECTED BY SWT 15 AND STOP AT THE END OF THE PROGRAN AT WAIT 
(3002 OR 3003). 



REFER TO 1130 MAINTENANCE MANUAL FOR CORE ADJUSTMENT PROCEDURES. 



E. TO CHANGE THE CORE ADJUST PATTERN OR RERUN THE PROGRAM 

1. SET SWT 15 AS DESIRED 

2. PRESS THE 1131 RESET KEY. 

3. PRESS THE 1131 PROGRAN START KEY. 

F. THE PROGRAM MUST BE RELOADED TO CHANGE THE SWT 14 SELECTION. 



3.3 PROGRAN HALTS 



.HALT NO, 


DESCRIPTION 




RESTART 


.(B REG). 






ACTION 


. 30F6 . 


LOADER WAIT. SHOULD OCCUR ON PAPER . 


. A. 


PLACE CORE ADJUST PROGRAM 




. TAPE I PL ONLY. 




IN READER. 






. B. 


MANUALLY SET I REG TO 0078. 






C. 


SET MODE SWr TO RUN. 






. D. 


PRESS PROGRAM START. 


. 3001 . 


. WAIT FOR SWITCH SETTINGS. 


. A. 


SET SWITCH 14... 

ON.. TO ADJUST HIGH CORE. 

OFF. TO ADJUST LOM CORE. 

SET SWITCH 15.. 

ON.. FOR COMPLENENT BEST 

CASE PATTERN. 

OFF. .FOR BEST CASE PATTERN 


. 3002 . 


. END LOW CORE ADJUST. 


. TO 


RESTART PROGRAM... 


. 3003 


. END HIGH CORE ADJUST. 




A. SET SW 15 AS DESIRED 

B. PRESS RESET 








C. PRESS PROGRAM START 
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4. PRINTOUTS (NONE) 



COMMENTS 



N 



\^ 



THE 1130 CORE ADJUST PROGRAM IS MADE UP OF TMO IDENTICAL SECTIONS. 
THE ONLY DIFFERENCE BETWEEN THESE SECTIONS IS THE CORE LOCATIONS 
INTO UHICH THEY ARE LOADED. ONLY ONE OF THESE SECTIONS IS EXECUTED 
FOR EACH TINE THE PROGRAM IS LOADED SINCE EXECUTION OF EITHER 
SECTION WILL DESTROY THE OTHER. 

THE LOW CORE ADJUST SECTION IS SELECTED BY SHT 14 BEING OFF. 
THIS SECTION IS LOADED INTO THE LAST 2K OF CORE AND IS USED 
TO ADJUST THE FIRST 8K OF CORE. (THIS SECTION IS ASSEMBLED FOR A 
32K MACHINE. IGNORE HIGH ORDER BITS WHEN REFERENCING THE LISTING 
AND DOCUMENTATION.) 

THE HIGH CORE ADJUST SECTION IS SELECTED BY SWT 14 BEING ON. 

THIS SECTION IS LOADED INTO THE FIRST 2K OF CORE AND IS USED TO 

ADJUST CORE ABOVE 8K. (THIS SECTION IS NOT USED FOR MACHINES' 
HAVING 8K OR LESS CORE.) 

THE CORE ADJUST PROGRAM SHOULD NOT BE EXECUTING MHILE CORE IS 
BEING ADJUSTED. REFER TO 1130 MAINTENANCE MANUAL FOR CORE 
ADJUSTMENT PROCEDURE. 
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* B REG 
3001 



3002 
3003 



0000 

OlbE 03A6 

OlSF 7FFF 

0160 



•••* PROGRAM ID 03A6 

PROGRAM HA ITS************************************* 
COMMENTS 

SET CONSOLE ENTRY SWITCHES 

SHT IS— ON — LOAD CORE UITH COMPLEMENT 
BEST CASE PATTERN. 
-OFF-LOAD CORE MITH BEST CASE 
PATTERN. 

SUT 14 — ON — EXECUTE HIGH CORE ADJUST ROUTINE. 
-OFF — EXECUTE LOW CORE ADJUST ROUTINE. 

PRESS START TO CONTINUE. 



END OF LON CORE ADJUST ROUTINE. 

END OF HIGH CORE ADJUST ROUTINE. 

ADJUST CORE MHILE CYCLING IN AUTOMATIC 
DISPLAY MODE. REFER TO 1130 MAINTENANCE 
MANUAL FOR ADJUSTMENT PROCEDURE. 
•••••«•*«««•••*•••*»««*«•*•«»**«•»•••*•»*«*«•»***• 



ABS 

ORG 

DC 

DC 

ORG 



/015E 
/03A6 
/7FFF 
/-7B00 



PIO 



*****•*****«*•««*«••«•«•«***«****••*******«*•*«•*• 
PROGRAM INITIALIZATION 

*****************»**4>*»******««******************* 



7600 
78U2 
7804 
7805 
7806 
7807 
7808 



CCOO 01B4 

OCOO 0004 

3001 

085C 

C06A 

1801 

4C04 0160 



780A C8S5 
780B DCOO 0004 



BEGIN LDO 
STD 
HAIT 
XIO 
LO 
SRA 
BSC 

* 

LOO 
STD 



LINKH 

4 

1 

RDSMS 

SMS 

1 

STRTH.E 

LINK 

4 



SET UP RESTART TO 
HIGH CORE ADJUST 
MAIT FOR SMITCH SETTING 
READ SWITCHES 



BR TO HIGH CORE ADJUST 

IF SHT 14 ON. 
SET UP RESTART TO 

LOH CORE ADJUST 





780D 6104 


START LOX 


1 


4 




780E 1010 


SLA 




16 




780F 0400 0000 


STD 


L 







7811 0400 6000 


STO 


L 


/6000 




7813 COSl 


LD 




K0600 




7814 1001 


LD31 SLA 




1 




7815 0056 


STO 




SIZE 




7816 0480 786C 


STO 


1 


SIZE 




7818 7400 0000 


MOX 


L 


OtO 


DATE 


02JAN66 15N0V66 


15FEB68 






EC NO. 


415490 419643 


420403 







**•**««*•••*•««•••«•«*«»•«*••*»••*««*•»**•*«*••»** 

LOH CORE ADJUST ROUTINE 

*•*********•**•••««•««•*««•*««•«««••««•••*»*••»••• 

DETERMINE SIZE OF CORE 



CLEAR LOC 6000 OR 4000 
CONSTANT 



3A600020 

3A600030 

3A600040 

3A600050 

3 A6 00060 

3A600070 

3 A6 00080 

3A600090 

3A6 00100 

3A600110 

3A6 00120 

3A600130 

3A6 00140 

3A600150 

3A6 00160 

3A600170 

3A600180 

3A600190 

3A600200 

3A600210 

3A6 00220 

3A600230 

3A6 00240 

3A600250 

3A6 00260 

3A600270 

3A600?80 

3A600290 

3A6 00300 

3A6O0310 

3A6 00320 

3A600330 

3A6 00340 

3A6e«»50 

3A6003«> 

3A600370 

3A6003B0 

3A600390 

3A6 00400. 

3A600410 

3A600420 

3A600430 

3A600440 

3A600450 

3A600460 

3A600470 

3A6004B0 

3A600490 

3A600500 

3A600510 

3A600520 

3A600530 • 

3A600540 

3A600550 

3A600560 

3A600570 

3A600580 

3A600S90 

3A600600 

3A600610 

3A600620 

3A600630 

3 A6 00640 

3A600650 

3 A6 00660 

3A600670 

3A6 00680 

3A600690 



PROG ID 
PAGE 



781A 
781B 
781C 
7810 
781E 
78 IF 
7821 
7822 
7823 
7824 



7826 
7828 
7829 
782A 
762B 



7002 

71FF 

70F7 

71FF 

7004 

7400 6000 

C042 

0049 

C04e 

0400 0000 



74FF 786C 
1000 



C03D 
E041 
D03B 
782C C042 
782D E03E 
782E 0040 



782F 
7830 
7831 
7832 
7833 
7834 
7835 



C03F 
9035 
0036 
C039 
9033 
9034 
D03A 



47836 082B 

7837 C039 

7838 4C04 7630 



783A 
783B 
783C 
7830 
783E 
783F 
7840 
7841 
7843 
7844 
7845 
7846 
7848 



6100 

62FF 

7002 

61FF 

6200 

C026 

DO 2 A 

6780 7868 

4008 

C022 

D025 

6780 7870 

4003 



MOX 
MOX 
MOX 

LD32 MOX 
MOX 
MOX 
LD 
STO 
LD 
STO 

* 



MOX 
NOP 
LD 
AND 
STO 
LD' 
AND 
STO 
• 

LO 

S 

STO 

LD 

S 

s 

STO 

XIO 

LD 

BSC 

* 

PATOl LOX 
LOX 
MDX 

PAT02 LDX 
LOX 
LO 
STO 
LDX 
BSI 
LD 
STO 
LOX 
BSI 



LD32 
1 -1 

LD31 
1 -1 

*+4 
. /6000,0 

K6000 

SIZE 

H6004 
L 



HILL SKIP IF 24 OR 32K 
4, 6, OR 16K FOUND 
WILL SKIP IF 32K 
FETCH 24K SIZE CONSTANT 
SET PROPER SUE 



ADJUST CORE SIZE AND 
* CONSTANTS 



L SIZE«-1 

LLIN2 

SIZE 

LLIM2 

ULINl 

SIZE 

ULIMl 



ADJUST CONSTANT 



ULIMl 

LLIMl 

LOHRL 

SIZE 

LL1M2 

ONE 

UPERL 

RDSHS 
SMS 
L PATOZ.E 



FIND LOOP CONTROLS 



UPPER LIMIT CONTROL 
READ SNITCHES 
BR IF SM IS ON 



SET UP BCP OR CONPL. 8CP 





-1 

PAT024'2 
•I 



LLIMl 

PLOC 
13 LOHRL 

BCP 

LLIM2 

PLOC 
13 UPERL 

BCP 



7849 3002 
784A 4C00 7800 



AIT2 HAIT 

BSC L 



2 
START 



SET UP TO STA8T AT 

• 1ST LONER LIMIT 
SET UP LOOP CBNTROL 
SET CORES 

SET UP TO START AT 

* 2N0 LOMER LIMIT 
SET UP LOOP CONTROL 
SET CORES 

END OF PROMAN 



BCP AND COMPL. BCP SU8RT 



03A6-1 
1 





784C 0000 


BCP 


DC 











7840 COlO 




LD 




PLOC 


EXCUSIVE OR BITS 7 




784E 18106 




SRA 




6 


• AND 9 




784F 0010 




STO 




TEMP 






7850 1802 




SRA 




2 






7851 FOIB 




EOR 




TEMP 






7852 4C04 7857 




BSC 


L 


ODD.E 






7854 6D80 786B 




STX 


U 


PLOC 






7856 7002 




MDX 




O0DC2 






7857 6E80 7868 


ODD 


STX 


12 


PLOC 






7859 7401 786B 




MDX 


L 


PLOC.l 


INCREMENT ADDRESS 


DATE 


02JAN66 15N0V66 


15FEB68 








EC NO. 


41S490 419643 


420403 









3 A6 00700 
3A600710 
3 A6 00720 
3A600730 
3A6 00740 
3A600TSO 
3A6 00760 
3A600770 
3A600780 
3A600790 
3A60Oa00 
3A600810 
3A6 00820 
3A600830 
3A60O840 
3A600850 
3A600860 
3A600870 
3A6 00880 
3A600890 
3A600900 
3A600910 
3A6 00920 
3A600930 
3A600940 
3A6009S0 
3A600960 
3A*0«9tO 
3A6 00980 
3A600990 

suoieott 

3A60I018 

SA60ie2e 

1*601096 

>A*eie«» 
3A6ei»fe 

3A601M* 
SA40I0T0 
3A601M9 

>A6iiie«« 

SA6011M 
1A601110 
>M81tM 
M*«11M 
SA6ei 140 
tA*011M 
SMOllM 
M*ei|T» 
9A801I8* 
3A80119C 
1A8M2M 
M601219 
3A*01»e 
3M012M 
SA*Oia«« 
M4ei2M 

iA*eii*« 

SAMlXT* 
SAAOtat* 
9A6012M 
>A**1M« 
9A6eillO 
»*6flM8 
BA601I10 
SA601M8 
3A601SM 
1*681 1*0 
1*601170 
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DATE 
EC NO. 



7t» 1000 






SLA 




b 




3A601380 




7«SC 73FF 






MOX 




3 -I 


CK FOR END OF LOOP 


3A601390 




7«S0 70EF 






NDX 




BCP£1 


REPEAT 


3A601400 




76»E 4C80 


784C 


* 


BSC 


I 


BCP 


EXIT 


3A601410 
3A601420 " 




7860 OOOO 






BSS 


E 







3A601430 




7860 4C00 


7800 


LINK 


BSC 


L 


START 


RESTART LINKAGE 


3A601440 




7862 7871 




RDSMS 


. DC 




SHS 




3A601450 




7863 3A00 






oc 




/3A00 


READ SM ITCHES 


3A601460 




7864 6000 




K600C 


1 OC 




/6000 


24K CONSTANT 


3A601470 




7865 0800 




KO8O0 


1 DC 




/0800 


CONSTANT 


3A601480 




7866 0006 




LLIHl 


DC 




/0006 




3A601490 




7867 7873 




LLIN2 


! OC 




FIN 


2N0 LOWER LIMIT 


3A601S00 




7868 OOOO 




LOMRL 


OC 







LOWER LOOP CONTROL 


3A601510 




7869 0001 




ONE 


DC 




1 


CONSTANT 1 


3A601520 




78 6A OOOO 




PATNC 


1 OC 







PATTERN NUMBER 


3A601530 




7868 OOOO 




PLOC 


OC 







PRESENT LOC 


3A601540 




786C OOOO 




SIZE 


OC 







CONTAINS CORE SIZE 


3A601S50 




7860 OOOO 




TEMP 


OC 









3A601560 




786E 0002 




TWO 


DC 




2 


CONSTANT 2 


3A601570 




786F 7800 




ULINl 


OC 




START 


1ST UPPER LIMIT 


3A601580 




7870 OOOO 




UPERL 


DC 







UPPER LOOP CONTROL 


3A601590 




7871 OOOO 




SNS 


OC 









3A601600 




7872 6004 




H6004 


OC 




/6004 




3A601610 




7873 OOOO 




FIN 

• 
• 


OC 







LAST LOC OF PROG 


3A601620 
3A601630 
3AA01640 




7874 






ORG 




/0160 




3A601650 








•••••**♦*•*••*•♦♦•♦*•*♦♦»••••••*••*•♦*•••♦*•***•••* 3A601^0 








• 










3A601A70 








• 






HIGH CORE 


ADJUST ROUTINE 


3A6016B0 








• 










3A«0169a 








**•♦*•••*••♦•••♦*♦•••••*••*♦•*»*♦•♦••»*•»♦•••*♦•••« 3A601700 








• 










3A601710 








• 






DETERMINE SIZE OF CORE 


3A601720 




0160 6104 




STRTH 


LOX 


I 


4 




3A601730 




0161 1010 

0162 0400 


OOOO 




SLA 
STO 


L 


16 






3A601740 
3A601750 




0164 0400 


6000 




STO 


L 


/6000 


CLEAR LOC 6000 OR 4000 


3A601760 




0166 C052 






LO 




K080H 


CONSTANT 


3A601770 




0167 1001 




LD31H 


SLA 




1 




3A6017BO 




0168 0057 






STO 




SIZEH 




3A601790 




0169 D480 


OICO 




STO 


I 


SIZEH 




3A601BOO 




0I6B 7400 
0160 7002 


OOOO 




MOX 
MOX 


L 


0,0 
L032H 




3A601B10 
3A601B20 




016E 71FF 
01 6F 70F7 






MOX 
MOX 


1 


-1 
L031H 




3A601830 
3A601B40 




0170 71FF 




L032H 


HOX 


1 


-1 


HILL SKIP IF 24 OR 32K 


3A601850 




0171 7004 






NOX 




**4 


4, 8. OR 16K FOUND 


3A601B60 




0172 7400 1 


6000 




NDX 


L 


/6000,0 


HILL SKIP IF 32K 


3A601870 




0174 C043 






LO 




K600H 


FETCH 24K SIZE CONSTANT 


3A601B80 




0175 D04A 

0176 C04F 






STO 
LO 




SIZEH 
H604H 


SET PROPER SIZE 


3A601B90 
3A601900 




0177 0400 ( 


3000 


• 


STO 


L 







3A601910 
3A601920 








* 






ADJUST CORE SIZE AND 


3A601930 








• 






* CONSTANTS 


3A601940 




0179 74FF OICO 
01 7B 1000 
01 7C C03E 
017D E042 
01 7E 003C 


• 


NDX 

NOP 

LO 

AND 

STO 


L 


SIZEH,-! 

LIM2H 
SIZEH 
LIM2H 


ADJUST CONSTANT 


3A601950 
3A601960 
3A601970 
3A601980 
3A601990 
3A602000 




017F C043 

0180 E03F 

0181 0041 

^fe ft J_ft ^ Jh ^ «h A rfh 




• 


LO 

AND 

STO 




ULMIH 
SIZEH 
ULMIH 

FIND 


LOOP CONTROLS 


3A602010 
3A602020 
3A602030 
3 A6 02040 




0182 C040 






LD 




ULMIH 




3A60205O 




02JAN66 15N0V66 


15FEB68 








PROG 10 


03A6-1 


415490 419643 


420403 
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2 





0183 9036 




S 


LINIH 




3A602060 






0184 0037 

0185 C03A 


• 


STO 
LO 


LWRLH 
SIZEH 




3A602070 
3A602080 






0186 9034 

0187 9035 




S 

S 


LIN2H 
ONEH 




3A602090 
3A602100 






0188 D03B 




STO 


■ UPRLH 


UPPER LIMIT CONTROL 


3A602110 






0189 oe2C 
018A C03A 


♦ 


XIO 
LD 


RDSWH 
SUSH 


READ SWITCHES 


3A602120 
3A602130 
3 A6 02 140 






018B 4C04 0190 


• 


BSC 


L PAT2H,E 


BR IF SW 15 ON 


3A602150 
3A602160 








• 




SET 


UP BCP OR COMPL. BCP 


3A602170 






0180 6100 


4 
PATIH 


1 LOX 


1 




3A602180 
3A602190 






018E 62FF 




LOX 


2 -1 




3A602200 






018F 7002 




HOX 


PAT2H<f2 




3A602210 






0190 61FF 


PAT2H 


! LOX 


1 -1 




3*602220 






0191 6200 




LOX 


2 




3A602230 






0192 C027 




LD 


LIMIH 




3A602240 






0193 D02B 




STO 


PLOCH 


* 1ST LOWER LIMIT 


3A602250 






0194 67B0 01 BC 




LOX 


13 LHRLH 


SET OP LOOP CONTROL 


3A602260 






0196 4008 




8SI 


BCPH 


SET CORES 


3A602270 






0197 C023 




LD 


L1M2H 


SET UP TO START AT 


3Af02280 






0198 0026 




STO 


PLOCH 


• 2N0 LOWER LIMIT 


3A602290 






0199 6780 01C4 




LOX 


13 UPRLH 


SET UP LOOP CONTROL 


3A602S00 






019B 4003 


* 


BSI 


BCPH 


SET CORES 


3A602310 
3A602320 






019C 3003 


MAIT3 


WAIT 


3 


END OF PROGRAM 


3A602330 






0190 4C00 0160 


* 
• 


BSC 


L STRTH 




3A602340 
3A602350 
3A602360 








* 




5 BCP 


AND COMPL. BCP SUBRT 


3A402370 








.* 








3A402380 






019F OOOO 


BCPH 


OC 







3A602390 






OlAO COIE 




LD 


PLOCH 


EXCLUSIVE OR BITS 7 


3AA02400 






OlAl 1806 




SRA 


6 


• AMO 9 


>A6e24iO 






01A2 OOIE 




STO 


TEMPH 




3*602420 






01A3 1802 




SRA 


2 




3A6026M 






01A4 FOIC 




EOR 


TEMPH 




3A602440 . 






01A5 4C04 OlAA 




BSC 


L OODH,E 




1**02490 






01A7 6080 OIBF 




STX 


11 PLOCH 




3A*024*0 






01A9 7002 




MOX 


OOOH't'2 




3A6e24Te 






OlAA 6E80 OIBF 


OOOH 


STX 


12 PLOCH 




3A* 02400 






OlAC 7401 OIBF 




NOX 


L PLOCH, 1 


INCREMMT ADORiSS 


lA*02*«e 






OlAE 1000 




SLA 







SA*o2feo 






OlAF 73FF 




MDX 


3 -1 


CK FOR EtIO or LOOP 


3A*e2S10 






OIBO 70EF 




MOX 


BCPH*1 


REPEAT 


3**e2S20 






OlBl 4C80 019F 


• 


BSC 


I BCPH 


EXIT 


S**02SS0 
3A*02940 






01B4 OOOO 




BSS 


E 




M*«29S0 






01B4 4C00 0160 


LINKH 


BSC 


L STRTH 


RESTART llNRAfif 


3**029*e 






01B6 Dies 


ROSWH 


OC 


SWSH 




SA*02ST0 






01B7 3A00 




DC 


/3A00 


READ SWITCHES 


3A602SB0 






01 B8 6000 


K600H 


DC 


/6000 


24K CONSTANT 


3A*02»«0 






0189 0800 


K080H 


DC 


/0800 


CONSTANT 


3A*02*00 






01 BA 0006. 


LINIH 


OC 


/0006 




>A*02*10 






OIBB 01C7 


LIM2H 


OC 


FINH 


2ND LOWER LIMIT 


SA*B2*20 






01 ec OOOO 


LWRLH 


DC 





LOWER LOOP CONTROL 


3**02*10 






0180 0001 


ONEH 


OC 


1 


CONSTANT 1 


3**02*40 






OIBE OOOO 


PATNH 


OC 





PATTERN NUMBER 


3**02*50 






OIBF OOOO 


PLOCH 


DC 





PRESENT LK 


3A*02**0 






OICO OOOO 


SIZEH 


OC 





CONTAINS CORE SUE 


9**02*70 






OlCl OOOO 


TENPH 


OC 







9A*02*S0 






01C2 0002 


TWOH 


DC 


2 


CONSTANT 2 


9**02**0 






01C3 0160 


ULMIH 


DC 


STRTH 


1ST UPPER LIMIT 


9A*02Te0 






01C4 OOOO 


UPRLH 


DC 





UPPER LOOP CONTROL 


9A*02Tlb 






01C5 OOOO 


SHSH 


DC 







9A*02720 






01C6 6004 


H604H 


OC 


/6004 




9**02790 




DATE 
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01C7 0000 FINN DC 
01C8 7800 END BEGIN 

NO STATEMENTS FLAGGED IN THE ABOVE ASSEMBLY 



LAST LOC OF PROG 



3A602740 
3A602750 



c R : 


S S 1 


REFERENCE 


NAME 


VALUE 


REFERENCES 


BCP 


784C 


78*3t78*8»7850,785E 


BCPH 


019F 


0196.019Bt01BO.0181 


BEGIN 


7800 


01C8 


FIN 


7873 


7867 


FINH 


01C7 


OIBB 


H600* 


7872 


7823 


H60*H 


01C6 


0176 


KOBOH 


0169 


0166 


:;o800 


7865 


7813 


K600H 


01B8 


017* 


K6000 


786* 


7821 


L031 


781* 


78 10 


LD31H 


0167 


016F 


LD32 


7810 


781* 


LD32H 


0170 


0160 


LIMIH 


OIBA 


0183.0192 


LIM2H 


OIBB 


017C.017E. 0186. 0197 


LINK 


7860 


780A 


LINKH 


OIB* 


7800 


LLIMl 


7866 


7830.783F 


LL1M2 


.'867 


7829.7828.7833.78** 


LOHRL 


7668 


7831*78*1 


LHRLH 


OIBC 


018*.019* 


ODD 


7857 


7852.7856 


ODOH 


OlAA 


OlASfOlA* 


ONE 


7869 


783* 


ONEH 


OIBD 


0187 


PATNH 


«18E 




PATNO 


786A 




PATOl 


7«SA 


« 


PAT02 


7830 


7838.7t3C 


PATIH 


0180 




PAT2H 


0190 


018B.018F 


PLOC 


7868 


78*0. 78*5. 78*0.78S*.7857.7«59 


PLOCH 


OIBF 


0193. 0198. 01A0.01A7.01AA.eiAC 


RDSMH 


01B6 


0189 


RDSHS 


7862 


7805.7836 


SUE 


786C 


7815. 7816. 7822. 7826, 7B2A, 7820.7832 


SIZEH 


OICO 


0168,0169.0175.0179.0170.0180.0185 


START 


7800 


78*A.7860.786F 


STRTH 


0160 


019D.01B*.01C3*7808 


SHS 


7871 


7806.7837.7862 


SMSH 


01C5 


018A.01B6 


TEMP 


786D 


78*F.7851 


TEMPH 


OlCl 


01A2,0U* 


TNO 


786E 




TMOH 


01C2 




ULIMl 


786F 


782C.7S2E.782F 


ULMIH 


01C3 


017F. 0181.0182 


UPERL 


7870 


7835.78*6 


UPRLH 


OIC* 


0188.0199 


MAIT2 


78*9 




HAIT3 


019C 





END OF ASSEMBLY 
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NOTE - THE FOLLOWING OPERATING PROCEDURE AND FUNCTIONAL DESCRIPTION IS 
APPLICABLE TO BOTH THE 1442 RELOCATING LOADER (03AA - 2191283) 
AND THE 2501 RELOCATING LOADER ( 03AB - 2196461) 



OPERATING PROCEDURE 

THE FOLLOWING PROCEDURE IS APPLICABLE TO BOTH THE 1442 RELOCATING LOADER 
(03AA) AND THE 2501 RELOCATING LOADER (03AB). 



TABLE OF CONTENTS 
PARAGRAPH PAGE 

1. PURPOSE 1 

2. REQUIREMENTS 1 

2.1 PROGRAM REQUIREMENTS 

2.2 EQUIPMENT REQUIREMENTS 

3. USE PROCEDURE lA 



3.1 
3.2 



LOADING AND OPERATING 
WAITS 



PRINTOUTS 
COMMENTS . 



(NONE) 



6. APPENDIX (NONE) 



3.1 TYPES OF PROGRAMS THAT MAY BE LOADED. 

THE RELOCATING DIAGNOSTIC LOADER IS DESIGNED PRIMARILY FOR LOADING 
THE 1130 DIAGNOSTIC MONITOR II AND RELOCATABLE DIAGNOSTIC PROGRAMS 
WHICH RUN UNDER CONTROL OF MONITOR II. THE FOLLOWING TYPES OF PRO- 
GRAMS CAN ALSO BE LOADED USING THIS LOADER. 

1. ANY ABSOLUTE PROGRAM ASSEMBLED IN THE STANDARD 1130 ASSEMBLY 
FORMAT SO LONG AS THAT PROGRAM DOES NOT LOAD INTO ANY CORE 
LOCATIONS LOWER THAN /160. 

2. ANY RELOCATABLE PROGRAM. 

3. A HEXIDECIMAL OBJECT DECK OR HEXADECIMAL PATCH CARDS PUNCHED 
IN THE FORMAT DESCRIBED IN SECTION 5.2 SUCH PROGRAMS CAN LOAD 
INTO ANY CORE LOCATIONS ABOVE /160, OR (TO LOAD INTO ZERO USE 
ADDRESS 8000). IF THE PROGRAM IS LOADED WITH INTERRUPT DELAY 
ON IT MAY BE LOADED INTO CORE LOCATIONS 0-39. THIS ALLOWS 
INTERRUPT TRANSFER VECTORS TO BE SET DURING LOADING. ALSO INDEX 
REGISTERS ARE NOT USED BY THE HEX LOADER, THERFORE, THESE MAY 

BE SET DURING LOADING. THIS FACILITY ALLOWS MANY PRESENTLY 
WRITTEN KEY IN ROUTINES TO BE PUNCHED INTO CARDS AND LOADED 
WITH VERY LITTLE MODIFICATION TO THESE ROUTINES. 



1. PURPOSE 

THE 1130 RELOCATING DIAGNOSTIC LOADER IS USED TO LOAD THE DIAGNOSTIC 
MONITOR AND PROGRAMS WHICH RUN UNDER CONTROL OF THE DIAGNOSTIC MONITOR. 
THE LOADER ALSO LOADS NON-MONITOR PROGRAMS WHOSE OBJECT DECKS ARE IN THE 
SAME FORM AS THE OUTPUT OF THE 1130 ASSEMBLER (12-4 FORMAT). (THE 1130 
RELOCATING DIAGNOSTIC LOADER WILL NOT LOAD PROGRAMS WHOSE OBJECT DECKS ARE 
COMPATIBLE WITH THE 1130 BASIC DIAGNOSTIC LOADER) 

2. PREREQUISITES 

2.1 PROGRAM PREREQUISITES. 

THIS LOADER USES THE FIRST 340 WORDS OF STORAGE. 

2.2 EQUIPMENT PREREQUISITES 

1. 1130 CPU 

2. PROGRAM LOAD FROM 2501 OR 1442 



3.2 TO LOAD A PROGRAM- 

1. AT CARD READER 

A. DEPRESS NPRO PUSHBUTTON TO EJECT ANY CARDS LEFT IN MACHINE. 

B. PLACE RELOCATING LOADER IN FRONT OF DECK(S) TO BE 
LOADED AND PLACE CARDS IN HOPPER. 

C. DEPRESS START PUSHBUTTON. READY INDICATOR SHOULD LIGHT. 

2. AT 1131 CONSOLE 

A. SET DATA ENTRY SWITCHES AS REQUIRED BY PROGRAM TO BE LOADED. 

B. DEPRESS RESET PUSHBUTTON. 

C. DEPRESS PROGRAM LOAD PUSHBUTTON. (PROGRAM SHOULD LOAD) 

3. TRANSFER TO PROGRAM 

A. IF THE PROGRAM DECK IS TERMINATED BY A BLANK CARD, 
THE LOADER WILL AUTOMATICALLY TRANSFER TO THE ADDRESS 
ON THE END OF PROGRAM CARD. 

B. IF THERE IS NO BLANK CARD ON THE END OF THE DECK, THE 
CARD READER WILL GO NOT READY AND THE LOADER WILL STOP 
AT WAIT 30F8. TO CONTINUE, PRESS READER START THEN 
1131 START. 
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3.3*** PROGRAM HALTS 



.HALT NO 
.(B REG) 


. X 

DESCRli*-TION 


RESTART ', 
ACTION 


. 30F1 


CHECK SUM ERROR ON FIRST 
CARD OF LOADER 


RELOAD * 


. 30F2 


READER DSH ERROR WHEN 
LOADING LOADER 


RELOAD '. 


. 30F3 


CARD 2 OF LOADER DID NOT 
LOAD 


RELOAD * 


. 30F4 


CAN NOT CLEAR CORE - DOE TO 
ERROR IN ADDRESSING UPPER 
CORE. 




. 30F5 . 


READER CHECK WHEN LOADING 
MONITOR OR TEST PROGRAM 


NPRO THEN PLACE CARDS I 
RUN OUT IN FRONT OF 
REMAINING DECK AND PRESS. 
START. 


. 30F6 , 


PROGRAM DID NOT LOAD 


RELOAD '. 


. 30F7 . 


CHECK SUM WHEN LOADING '. 
PROGRAM 


RELOAD * 


. 30F8 . 


READER NOT READY '. 


MAKE READER READY ! 




■■ • 


— "-— — — «— — „« — ^ 



5.1.6 RELOCATABLE HEADER ROUTINE — ENTERED WHEN A RELOCATABLE HEADER CARD 
IS FOUND. COMPUTES A RELOCATION FACTOR FOR PROGRAM THAT FOLLOWS. 

5.1.7 ABSOLUTE HEADER ROUTINE — ENTERED WHEN AN ABSOLUTE HEADER CARD IS 
FOUND. SETS RELOCATION FACTOR TO ZERO. 

5.1.8 TRANSFER ROUTINE — ENTERED WHEN A TRANSFER CARD IS FOUND. COMPUTES 
THE NEXT LOCATION AVAILABLE FOR LOADING IF ANOTHER PROGRAM FOLLOWS. 
TRANSFERS CONTROL TO THE LOCATION SPECIFIED ON THE TRANSFER CARD. 

5.1.9 HEX TO BINARY CONVERSION ROUTINE — CONVERTS A HEXADECIMAL CARD TO 
BINARY. ADDS IN RELOCATION FACTOR IF REQUIRED. 

5.2*** CARD FORMAT 

THE FOLLOWING DESCRIBES THE FORMAT OF CARDS WHICH CAN BE LOADED 
BY THE 1130 RELOCATING DIAGNOSTIC LOADER. 

5.2.1 ABSOLUTE HEADER CARDS HAVE A 1 PUNCH IN COLUMN 4. 

5.2.2 RELOCATABLE HEADER CARDS HAVE A (ZERO) PUNCH IN COLUMN 4. 



5.2.3 



*^***^ 



5.2.4 



5.2.5 



5.2.6 



4. PRINTOUTS (NONE) 



COMMENTS 

5.1*** THE FOLLOMING ARE THE MAJOR ELEMENTS OF THE 1130 RELOCATING 
DIAGNOSTIC LOADER- 

5.1.1 BOOTSTRAP ROUTINE — IS A SET OF INSTRUCTIONS ENTERED INTO THE 
1130 CPU CONTROLLED BY THE IPL (INITIAL PROGRAM LOADER) MODE 
WHOSE FUNCTION IS TO READ IN THE REMAINDER OF THE LOADER. 

5.1.2 READ ROUTINE — CHECKS READER FOR PROPER STATUS, READS A CARD 
INTO LOCATION /0028 THROUGH /0078, CHECKS FOR SATISFACTORY 
COMPLETION OF THE READ OPERATION, AND DETERMINES WHETHER THE 
CARD READ IS A BINARY CARD OR A HEXADECIMAL CARD. 

5.1.3 BINARY PACK ROUTINE — COMPUTES CHECKSUM OF A BINARY CARD, WAITS 
IF CHECKSUM IS IN ERROR. 

5.1.5 MOVE ROUTINE — MOVES DATA FROM /0028 THROUGH /0050 TO PROPER CORE 
LOCATION. CHECKS FOR EXCEEDIHG CORE SIZE. ADDS IN RELOCATION 
FACTOR WHEN REQUIRED. 



NORMAL DATA CARDS HAVE NO PUNCHES IN ROW 12 IN COLUMN 1. AN ADDRESS 
IN ROWS 11 THROUGH 9 IN COLUMN 1 AND ROWS 2 AND ROWS 12 THROUGH 5 OF 
COLUMN 3. A 12, PUNCH IN COLUMN 4, A WORD COUNT IN ROWS 4 
THROUGH 9 OF COLUMN 4. A RELOCATION FIELD (WHICH MAY BE BLANK) IN 
COLUMN 5 THROUGH 12. DATA IN COLUMNS 13 THROUGH 72. A SEQUENCE 
NUMBER IN COLUMNS 73-80. 

BINARY TRANSFER CARDS HAVE 12,11,0, 1 PUNCHES IN COLUMN 4 AND A 
WORD COUNT OF ZERO ( NO PUNCHES IN ROWS 4 THROUGH 9 IN COLUMN 4). 

HEXADECIMAL TRANSFER CARDS HAVE A 12 PUNCH IN COLUMN 1, A TRANSFER 
ADDRESS IN COLUMN 2 THROUGH 5 AND NO PUNCHES IN COLUMNS 6 AND 7. 

HEXADECIMAL DATA CARDS HAVE A 12 PUNCH IN COLUMN 1. THE ADDRESS 
AT WHICH THE DATA IS TO BE LOADED IN COLUMN 2 THROUGH 5 TO LOAD INTO 
ADDRESS ZERO USE 8000. DATA IN COLUMNS 6 THROUGH 75. DATA IS GROUPED 
5 COLUMNS TO ONE CORE WORD. THE FIRST COLUMN OF EACH GROUP SPECIFIES 
WHETHER OR NOT THE GROUP REQUIRES A RELOCATION FACTOR. IF THE FIRST 
COLUMN OF A GROUP IS BLANK, A RELOCATION FACTOR WILL NOT BE ADDED. 
IF THE FIRST COLUMN OF A GROUP CONTAINS AN R (11,9 PUNCH) A RELOCA- 
TION FACTOR WILL BE ADDED TO THE FIELD. LOADING OF THE CARD IS TER- 
MINATED BY TWO SEQUENTIAL BLANK COLUMNS. COLUMNS 76 AND 77 MUST BE 
BLANK. A SEQUENCE NUMBER MAY BE PUNCHED IN COLUMNS 78-80. ALSO IF 
ONLY A PORTION OF THE CARD IS USED FOR DATA AFTER TWO BLANK COLUMNS 
ANY COMMENT MAY BE ADDED TO THE CARD. 
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PART NO. 
PAGE 



2191281 
lA 



0000 





0000 


C02C 




0001 


1802 




0002 


D02A 




00O3 


C023 




0004 


1801 




0005 


0021 




0006 


F038 




0007 


0037 




0008 


C022 




0009 


1803 




OOOA 


D020 




OOOB 


FOID 




OOOC 


DOIC 




OOOD 


1805 




OOOE 


F031 




OOOF 


D030 




0010 


C017 




0011 


D0F6 




0012 


D0F9 




0013 


C016 




0014 


8000 




0015 


0014 




0016 


COFD 




0017 


800E 




0018 


DOFB 




0019 


FOOB 




OOIA 


4820 




OOIB 


70F7 




OOIC 


GOOD 




OOID 


4820 




OOIE 


30F1 




OOIF 


7010 




0020 


B823 




0021 


0806 




0022 


48F8 




0023 


0803 




0024 


700E 




0025 


8039 




0026 


0001 




0027 


2808 




0028 


0020 




0029 


0003 




002A 


3829 




002B 


B800 




002C 


0000 




002D 


4800 




002E 


F017 




002F 


30F2 




0030 


08F5 




0031 


08F6 




0032 


08F7 




0033 


FOll 




0034 


4820 




,0035 


7011 




0036 


08F5 




0037 


C0F4 




0038 


FOED 




0039 


D0F2 


DATE 


01DEC66 


EC NO. 


411643 





ABS 






3AA00020 






ORG 


/OOOO 




3AA00030 






1130 
LOAD 1 


LOADER CARD 
WITH PROGRAM 


l __-.__— ______ _ 


3AA00040 
3AA00050 




* 


I ——— — — — ____ 

LOAD BUTTON 




* 








3AA00060 




START 


LD 


RDINCl 


CORRECT I/O CONT. COMM. 


3AA00070 






SRA 


2 


BY SHIFTING 


3AA00080 






STO 


RDIN£1 




3AA00090 






LD 


STRD 


CORRECT I/O CONT. COMM, 


3AA00100 






SRA 


1 


BY SHIFTING AND 


3AA00110 






STO 


STRD 


STORE WORD 


3AA00120 






EOR 


STORE 


SET UP STORE LONG INST 


3AA00130 






STO 


STORE 


PUT BACK INTO CORE. 


3AA00140 






LD 


SENSE 


CORRECT I/O CONT. COMM. 


3AA00150 






SRA 


3 




3AA00160 






STO 


SENSE 




3AA00170 






EOR 


RESET 




3AA00180 






STO 


RESET 




3AA00190 






SRA 


5 


MAKE STORE LONG INST. 


3AA00200 






EOR 


STOREEl 




3AA00210 






STO 


ST0RE61 




3AA00220 






LD 


INTAD 




3AA00230 






STO 


/0008 




3AA00240 






STO 


/OOOC 




3AA0025O 




* 








3AA00260 




STRT 


LD 


CHKSM 


FORM CHECK SUM .THIS CARD 


3AA00270 






A 


* 


FROM 0015 THRU 004D 


3AA00280 






STO 


CHKSM 




3AA00290 






LD 


STRTtl 




3AA00300 






A 


KOOOl 


MODIFY ADD INSTRUCTION 


3AA00310 






STO 


STRTEl 




3AA00320 






EOR 


CONl 


CHECK THAT LAST LOC.CHECKD 


3AA00330 






BSC 


Z 


SKIP WHEN DONE 


3AA00340 






MDX 


STRT 


GO GET NEXT WORD 


3AA00350 






LD 


CHKSM 


GET SUM OF 0013 THRU 004F 


3AA00360 






BSC 


Z 


- SEE ACC IS OOOO IF SO GO 


3AA00370 






WAIT 


-15 


CHECK SUM ERROR 


3AA00380 




ENOCK 


HDX 


SRTRD 


START LOADING 


3AA00390 




* 








3AA00400 




INT 


DC 


/B823 




3AA00410 






XIO 


RESET-1 


SENSE AND RESET DSW 


3AA00420 






DC 


/48F8 


BOSC £-Z 


3AA00430 




K0803 


DC 


/0803 




3AA00440 






MDX 


PACK 




3AA00450 




* 








3AA00460 




COM 


A 


X /0039 




3AA00470 




KOOOl 


DC 


/OOOl 


START RD.USED AS CONSTANT 


3AA00480 




STRD 


DC 


/2808 


/1404 SET BY PROG. 


3AA00490 




INTAD 


DC 


INT 


RESET DSW CONTROL COMMAND 


3AA00500 




RESET 


DC 


/0003 


/1703 SET BY PROGRAM 


3AA00510 




CHKSM 


DC 


/3829 


SENSE DSW CONTROL COMMAND 


3AA 00520 




SENSE 


DC 


/B800 


/1700 SET BY PROGRAM 


3AA00530 




ROIN 


DC 


/OOOO 


READ IN LOCATIONS 0£1 


3AA00540 






DC 


/4800 


/1200 SET BY PROGRAM 


3AA00550 




* 








3AA00560 




ERROR 


EOR 


K0800 


RESTORE ACC. TO DSW 


3AA00570 






MAIT 


-14 **ERR. DSH IN ACC. 


3AA00580 




« 








3AA00590 




SRTRD 


XIO 


STRD-1 


START READ 


3AA00600 






XIO 


RESET-1 


RESET DSW 


3AA00610 






XIO 


SENSE-1 


SENSE DSW FOR CRP 


3AA00620 




PACK 


EOR 


K8003 


BITS 6 14 £ 15 ONLY 


3AA00630 






BSC 


Z 


SKIP IF BITS 0£,14£15 ONLY 


3AA00640 






MDX 


CONTl 


CONTINUE DSW ANALYSIS 


3AA00650 






XIO 


RDIN 


RD COL. ONE-HALF WORD 


3AA00660 






LD 


RDIN 




3AA00670 






EOR 


KOOOl 


SWITCH READ IN AREA, EVEN 


3AA00680 






STO 


RDIN 


COLS. IN ODD IN 1 


3AA00690 

PROG ID 
PAGE 


03AA-2 
1 



DATE 
EC NO. 



003A 





4820 






BSC 




Z 


SKIP BOTH HALVES IN 


3AA00700 




003B 





70F5 






MDX 




SRTROGl 


GET 2ND HALF WORD 


3AA0071O 




003C 





C0C4 






LD 




STARTGl 


GET LAST 8 BITS 


3AA0072O 




003D 





1808 






SRA 




8 


SHIFT IT 


3AA0073O 




0036 





FOCI 






EOR 




START 


GET FIRST 8 BITS 


3AA00740 




003F 





C004 




STORE 


DC 




/C004 


FIRST WORD OF STO L 


3AA00750 




0040 





00F7 






DC 




/00F7 


2ND WORD OF STORE LONG 


3AA00760 












* STORE e 


STORE £1 CHANGED BY PR0G9 TO STO L /004F 


3AA00770 




0041 





COFE 






LD 




STORECl 




3AA00780 




0042 





80E3 






A 




KOOOl 


MODIFY STORE ADDRESS 


3AA00790 




0043 





DOFC 






STO 




ST0RE61 




3AA00800 




0044 





70EC 




* 


MDX 




SRTRDCl 




3AA00810 
3AA00820 




0045 





8003 




K8003 


DC 




/8003 




3AA00830 




0046 





0800 




K0800 

* 


DC 




/0800 




3AA00840 
3AA00850 




0047 





F003 




CONTl 


EOR 




K8000 


CHECK FOR BITS 14£.15 ONLY 


3AA00860 




0048 





4820 






BSC 




Z 


SKIP BUSY AND NOT READY 


3AA00870 




0049 





7002 






MDX 




C0NT2 




3AA00880 




004A 





70E7 






MDX 




SRTRDC2 




3AA00890 




004 B 





8000 




K8000 

* 


DC 




/8000 




3AA00900 
3AA00910 




004C 





F0D6 




C0NT2 


EOR 




K0803 


CHECK FOR BIT 4 ONLY 


3AA00920 




004D 





4820 






BSC 




Z 


SKIP END OF CARD 


3AA00930 




004E 





70DF 






MDX 




ERROR 




3AA00940 




004F 





30F3 




* 


WAIT 




-13 


»*ERR IF PRGM STOPS AT WAIT 


3AA00950 
3AA00960 












*«****»**#««»#*««»*:»#:(t*»:»,«*:»4^i:>»<i*^^*^:j^^^^:t 


3AA00970 












« 










3AA00980 












* 


CARD 


TWO STARTS 


HERE 


3AA00990 












♦ 










3AA01000 












* 










3AA01010 




0028 








INPUT 

* 

* 


EQU 
NOTE 




/28 
... THIS 


INPUT AREA 

SECTION OVERLAYED 

[FADING THE FIRST CARD.. 


3AA01020 
3AA01O30 
3AAffl040 
3AA01050 












* 






BY R 












* 






OF F 


■IRST PROGRAM 


3AA01060 
3AA01070 










0050 










ORG 




/004F 




3AA01080 




004F 





7400 


0074 




MDX 


L 


FIRST 




3AA01090 




0051 





7003 




* 


MOX 




CNT 




3AA01100 
3AA01110 




0052 





6379 






LOX 


3 


/79 




3AA01120 




0053 





6BEC 






STX 


3 


/40 




3AA01130 




0054 





681F 




» 


STX 




FIRST 




3AA01140 
3AA01150 




0055 





74FF 


0040 


CNT 


MOX 


L 


/40,-l 




3AA01160 




0057 





74FF 


0075 




MDX 


L 


COUNT, -1 




3AA01170 




0059 





70D6 






MDX 




/0030 


GO START READ 


3AA01180 




005A 





C04B 






LD 




INTE 


SET INTERRUPT XFER 


3AA01190 




005B 





OOAC 






STO 




/8 




3AA01200 




005C 





DOAF 




* 


STO 




/C 




3AA01210 
3AA01220 




005D 





68A2 




CORE 


STX 









3AA01230 




005E 





6000 


7FFF 




STX 


L 


/7FFF 




3AA01240 




0060 





6700 


015C 




LDX 


L3 


END-4 




3AA01250 




0062 





7302 




C0RE2 


MDX 


3 


2 




3AA01260 




0063 





lOAO 






SLT 




32 




3AA01270 




0064 





DB02 






STD 


3 


2 




3AA01280 




0065 





7400 


OOOO 




MDX 


L 


/0000,0 


SKIP IF ZERO CLEARED 


3AA01290 




0067 





70FA 






MDX 




C0RE2 




3AA01300 




0068 





C400 


7FFF 




LD 


L 


/7FFF 


CK IF LAST ADR CLEARED 


3AA01310 




006A 





4C18 


0071 




BSC 


L 


C0RE3,t- 


BR IF CLEARED 


3AA01320 




006C 





6F00 


015F 




STX 


L3 


ULIM 


FETCH THE LAST ADR 


3AA01330 




006E 





C400 


015F 




LD 


L 


ULIM 


A # BIT THAT FAILED 


3AA01340 




0070 





30F4 




W30F4 

* 


WAIT 




-12 


CAN NOT CLEAR CORE 
ADDRESSING BIT FAILED 


3AA01350 
3AA01360 




0071 





6F00 


015F 


C0RE3 


STX 


L3 


ULIM 


SET THE CORE SIZE 


3AA01370 




01DEC66 














PROG ID 


03AA-2 


41^643 
















PAGE 


lA 
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0073 700A 




MDX 


RDCD 


GO LOAD PROGRAM 


0074 0000 


FIRST 


DC 


*-* 




0075 0007 


COUNT 


DC 


7 




0076 




ORG 


/78 





* 1*42 LOADER 

* THIS LOADER READS DATA FROM A CARD AND STORES 

* THAT DATA IN LOCATIONS /40 TO /77 

41 

* 



0078 0820 

0079 4C04 0156 
007B C02A 
007C D300 
0070 033E 



007E 
007F 
0080 
0082 
0083 
0084 



C029 

1003 

4C28 0155 

C022 

0028 

D02A 



0085 0822 

0086 4844 

0087 30F8 

0088 0821 

0089 081E 
OOBA 4878 

008B 0000 
008C 0819 
008D FOIC 
008E 4C18 008C 



0090 
0091 
0093 
0094 
0096 
0097 
0099 
009A 
009 C 

009D 
009E 
009 F 
OOAO 
OOAl 
00 A3 

00 A5 
00A6 
00 A 6 
00A7 
00A8 
00A9 
OOAA 
OOAB 
OOAC 
OOAD 



18CD 

4C04 0153 
1082 

4C04 009D 
lOOB 

4C10 008C 
0812 

7401 OOAC 
70EC 

080A 
0009 
COBS 
1001 

4C5A 0114 
4C40 00B3 

0028 
0000 
008B 
1700 
0000 
1703 
0003 
1404 
0000 
1204 



LOAD 



RDCD 



ROCOl 



RDCD2 

* 

INTO 

RDCD3 



* 
OPCOM 



AORS 

INTE 

SENSN 

DSM 

SENSR 

K0003 

STRDl 

READ 



XIO 

BSC 

LD 

STO 

STO 

LD 

SLA 

BSC 

LD 

STO 

STO 

XIO 

BOSC 

WAIT 

XIO 

XIO 
BOSC 

DC 
XIO 
EOR 
BSC 

RTE 
BSC 
SLT 
BSC 
SLA 
BSC 
XIO 
MDX 
MDX 

XIO 

STO 

LD 

SLA 

BOSC 

BOSC 

DC 

BSS 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 



SENSN- 1 

MLCD,E 

INTE 



/3E 

DSW 

3 

FEEDt£2 

ADRS 

READ 

DATA 

SENSR- 1 

E 
-8 

STRDl-1 

SENSR-1 
6-Z 

*-* 

SENSN-1 
K0003 
RDCD3.(- 

13 

W30F5,E 

2 

OPCOM, E 

11 

RDCD3,- 

READ 

READ,&1 

RDC02 

SENSR-1 

DSW 

INPUT 

1 

HEX,C£- 

SB05 

INPUT 

INTO 

/1700 

•-« 

/1703 

/0003 

/1404 

*-* 

/1204 



SET INTERRUPT XFER 
XR3«N0NIT0R, ILO 



CK LAST CARD SW 

GO TO MONITOR IF 
SET INPUT AORS 



ON 



SENSE DSW FOR READY 

SKIP IF READY 

WAIT S30F8n IF NOT READY 

START READ 

RESET DSW 



SERVICE COLUMN INTERRUPT 
SENSE DSW FOR READY 

LOOP UNTIL CHANGE IN DSW 



LOOK AT ERR 
BR IF ON 



INO 



BR IF OP COMPLETE 

BR IF NO INTRPT RESPONSE 

READ COLUMN 

UPDATE READ IN AREA 



RESET DSW 
SAVE DSW 



BR IF HEX PATCH CARD 



INTERRUPT TRANSFER AODRS 
SENSE - NO RESET 
OP COMPLETE DSW 
SENSE RESET 

START READ COMMAND 
READ ONE COL COMMAND 



3AA01380 
3AA01390 
3AA01400 
3AA01410 
3AA01420 
3AA01430 
3AA01440 
3AA01450 
3AA01460 
3AA01470 
3AA01480 
3AA01490 
3AA01500 
3AA01510 
3AA01520 
3AA01530 
3AA01540 
3AA0X5S0 
3AA01560 
3AA01570 
3AA01580 
3AA01590 
3AA01600 
3AA01610 
3AA91620 
3AA01630 
3AAei640 
3AA01650 
3AAei660 
3AA01670 
3AA01680 
3AA01690 
3AA01700 
3AA01710 
3AA01720 
3AA01730 
3AA01740 
3AA01750 
3AA01760 
3AA01770 
3AA01780 
3AA01790 
3AA01800 
3AA01810 
3AA01820 
3AA01830 
3AA01840 
3AA01850 
3AA01860 
3AA01870 
3AA01880 
3AA01890 
3AA01900 
3AA01910 
3AA01920 
3AA01930 
3AA01940 
3AA01950 
3AA01960 
3AA01970 
3AA01980 
3AA01990 
3AA02000 
3AA02010 
3AA02020 
3AA02030 
3AA02040 
3AA02050 



OOAE 0001 


ONE 


DC 


1 


OOAF 0000 


DATA 


DC 


«-» 


OOeO 1084 


SL 


SLT 


4 


OOBl 1088 




SLT 


8 


0OB2 108C 




SLT 


12 



* CONVERT 

* THIS RT PACKS BINARY DATA AND LEAVES IT IN 

* LOCATIONS 0028 - 0078. 



00B3 





61B8 


* 
SB05 


LDX 


1 


-72 


00B4 





6300 




LDX 


3 





00B5 





62FD 


SB06 


LDX 


2 


-3 


00B6 





C600 00B3 


SB07 


LD 


L2 


SLe3 


00B8 





0004 




STO 




SBIO 


00B9 





C171 




LD 


1 


INPUT673 


OOBA 





18D0 




RTE 




16 


COBB 





C170 




LD 


1 


INPUT£72 


OOBC 





1804 




SRA 




4 


OOBD 





1080 


SBIO 


SLT 




«-* 


OOBE 





0328 




STO 


3 


INPUT 


OOBF 





730X 




MDX 


3 


1 


OOCO 





7101 




MDX 


1 


1 


OOCl 





7201 




MDX 


2 


1 


00C2 





70F3 




MDX 




SB07 


0OC3 





7101 




MDX 


1 


1 


00C4 





70F0 




MDX 




SB06 



* CHECK MEADE 

* THIS RT DETERMINES WHE 

* in ABSOLUTE HDR CARD 



LD INPUT DATA 

LO REST OF WORD 

REQUIRED SHIFT SET HERE 
STO CONVERTED WORD 



CONVERT NEXT WORD 
SKIP WHEN FINISHED 

R 

THER THE DATA CARD IS 
2n RELOCATABLE HDR CARD 



0OC5 


C12A 




LD 


1 


INPUT62 


00C6 


4C18 


0156 


BSC 


L 


MLCD,e- 


00C8 


E03B 




AND 




LB20 


00C9 


903B 




S 




LB25 


OOCA 


4C18 


0108 


BSC 


L 


ABHED.e- 


OOCC 


9038 




S 




LB25 


OOCD 


4C18 


0106 


BSC 


L 


RLHED.fi- 



CK FOR HDR CARDS 

BR TO USER - BLANK CD 



BCH IF ABSOL HEAD CARD 
BCH IF RELOC HEAD CARD 



* CHECK SUM 

» THIS ROUTINE ADDS COLUMNS 0-72 

* TO CHECK THAT THIS SUM PLUS THE CARD 

* SEQUENCE NUMBER EQUALS ZERO . 



OOCF 





C129 






LD 


1 


INPUTtl 


0000 





4C18 


OODE 




BSC 


L 


CKEOP.t- 


00D2 





C030 






LD 




CDCT 


0003 





62CA 






LDX 


2 


-54 


0004 





825E 




CKSMl 


A 


2 


INPUT£54 


00D5 





4802 






BSC 




C 


0006 





80D7 






A 




ONE 


0007 





7201 






MDX 


2 


1 


0008 





70FB 






MDX 




CKSMl 


00D9 





80D4 






A 




ONE 


OODA 





4C20 


0158 




BSC 


L 


CKSUM.Z 



LD CHECK SUM 

SKIP CKSUM IF ZERO 



ADO WORDS 1 TO 54 



BR IF CK SUM ERR 



3AA02060 
3AA02070 
3AA02080 
3AA02090 
3AA02100 
3AA02110 
3AA02120 
3AA02130 
3AA02140 
3AA02150 
3AA02160 
3AA02170 
3AA02180 
3AA02190 
3AA02200 
3AA02210 
3AA02220 
3AA02230 
3AA02240 
3AA02250 
3AA02260 
3AA02270 
3AA02280 
3AA02290 
3AA02300 
3AA02310 
3AA02320 
3AA02330 
3AA02340 
3AA02350 
3AA02360 
3AA02370 
3AA02380 
3AA02390 
3AA02400 
3AA02410 
3AA02420 
3AA02430 
3AA02440 
3AA02450 
3AA02460 
3AA02470 
3AA02480 
3AA02490 
3AA02500 
3AA02510 
3AA02520 
3AA02530 
3AA02540 
3AA02550 
3AA02560 
3AA02570 
3AA02580 
3AA02590 
3AA02600 
3AA02610 
3AA02620 
3AA02630 
3AA02640 
3AA02650 
3AA02660 
3AA02670 
3AA02680 
3AA02690 
3AA02700 
3AA02710 
3AA02720 
3AA02730 



DATE 
EC NO. 



01DEC66 
41"? 643 



PROG ID 
PAGE 



03AA-2 
2 



DATE 
EC NO. 



01DEC66 
41'?643 



PROG ID 
PAGE 
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2A 
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OODC 7401 0103 



OODE C12A 
OODF 1008 
OOEO 1808 
OOEl D12A 
O0E2 4C18 OlOC 



00E4 8128 
00E5 8077 
00E6 9078 
00E7 4C10 015A 



O0E9 C128 
OOEA 8072 
OOEB DOOB 
OOEC 6600 002B 

OOEE 63F8 

OOtF C200 
OOFO 1800 
OOFl 1082 
O0F2 4C04 0101 

00F4 1810 
OOFS 8131 
00F6 D500 0000 
OOFS 74FF 002A 
OOFA 7001 
OOFB 607E 

OOFC 7101 
OOFD 7301 
OOFE 70F2 
OOFF 7201 

0100 70ED 

0101 C05B 

0102 70F2 

0103 0000 

0104 OFOO 

0105 0100 





MDX 


L 


CDCT,1 


ADD 1 TO CARD CT 


3AA02740 


* 










3AA02750 
3AA02760 












* CHECK FOR 1 


END OF PROGRAM CARD 


3AA02770 












3AA02780 
3AA02790 


I 










CKEOP 


LD 


1 


INPUT£2 


GET WORD COUNT 


3AA02800 




SLA 




8 


CLEAR CARD CODE 


3AA02810 




SRA 




8 




3AA02820 




STO 


1 


INPUTE2 


SAVE WORD COUNT 


3AA02830 




BSC 


L 


EOP.e- 


EOP IF WC « ZERO 


3AA02840 


* 










3AA02850 


:((_ . 










3AA02860 












* CHECK FOR 1 


DVER CORE 




3AA02870 


*___^. 










3AA02880 






~ 


- — — ^ — _• — w~ — 




* 










3AA02890 




A 


1 


INPUT 


SUM WCtSTO ADDRS&RELOC 


3AA02900 




A 




UPPER 




3AA02910 




S 




ULIM 




3AA02920 




BSC 


L 


OVCR»- 


BR IF OVER CORE 


3AA02930 


* 










3AA02940 


«#*****»#*««**********♦*♦*********#»«*****«« 


3AA02950 


* 






RELOCATE 


AND STORE 


3AA02960 


*#*********«********«**#*♦***«**«»*»»*«**«** 


3AA02970 


* THIS RT 


PLACES DATA 


FIELDS INTO THE CORRECT 


3AA02980 


* 


CORE 


LOCATIONS AND ADDS IN A RELOCATION 


3AA02990 


* 


FACTOR IF REOUIREC 


1. 


3AA03000 


« 











3AA03010 








LD 


1 


INPUT 


LD STORE AODRS 


3AA03020 




A 




UPPER 


RELOCATE STORE ADDRS 


3AA03030 




STO 




ST0R4£1 




3AA03040 




LDX 


L2 


INPUT£3 


XR2 # RELOCATION CODE ADDRS3AA03050 


* 










3AA03060 


STORl 


LDX 


3 


-8 


XR3# REL BIT CNT 


3AA03070 


* 










3AA030e0 




LD 


2 





LD NEXT RELOCATION CODE 


3AA03090 




RTE 




16 


STO IN EXT REG 


3AA03100 


ST0R2 


SLT 




2 


BRING IN NEXT REL BIT 


3AA03I10 




BSC 


L 


ST0R6,E 


BR IF RELOCATE 


3AA03120 


* 










3AA03130 




SRA 




16 




3AA03140 


ST0R3 


A 


1 


INPUTE9 


ADD NEXT WORD 


3AA03150 


ST0R4 


STO 


LI 


*-* 


STO IN PROGRAM 


3AA03160 




MDX 


L 


INPUT£2,- 


■1 DECR WORD CNT 


3AA03170 




MDX 




ST0R5 


SKIP WHEN WC # 


3AA03180 




LDX 




RDCD 


FINISHED 


3AA03190 


* 










3AA03200 


ST0R5 


MDX 


1 


1 


AOV WORD AND STO ADRS 


3AA03210 




MDX 


3 


1 


ADV REL BIT CNT 


:3AA03220 




MDX 




ST0R2 




3AA03230 




MDX 


2 


1 


ADV TO NXT RELOC WO 


3AA03240 




MDX 




STORl 




3AA03250 


* 










3AA03260 


ST0R6 


LD 




UPPER 


LD RELOC FACTOR 


3AA03270 




MDX 




ST0R3 


GO RELOC ADDRS 


3AA03280 


* 










3AA03290 


COCT 


DC 




*-* 




3AA03300 


LB20 


DC 




/OFOO 




3AA03310 


LB25 


DC 




/OlOO 




3AA03320 


* 










3AA03330 


«*********»#*«***«*************#*#*««#»*«*** 


3AA03340 


* 




HEADER AND EOP CARDS 


3AA03350 


«*«*«; 


****«*«*«********«**♦»***!>*******«***«!* 


3AA03360 


« 










3AA03370 












3AA03380 












* THIS RT 

±; 


. HANDLES RELOCATABLE HDR CARDS. 


3AA03390 
3AA03400 












* 










3AA034IO 



0106 C055 

0107 9056 



0108 D054 

0109 7101 
OlOA 69F8 
OlOB 607E 



OlOC 





C128 


OlOD 





804F 


OlOE 





D04D 


OlOF 





C12B 


0110 





804C 


0111 





DOOl 


0112 





4C00 0000 



0114 D032 

0115 C480 OOAF 

0117 D038 

0118 7401 OOAF 



QUA 





C031 




OllB 





D032 




one 





1810 




OllD 





1004 




OllE 





D02C 




OllF 





1810 




0120 





D02E 




0121 





C480 


OOAF 


0123 





4C18 


007E 



0125 4C10 0129 
0127 7409 014F 



0129 





1003 




012A 





4C18 


0133 


012C 





7401 


014F 


012E 





4C28 


0132 


0130 





1001 




0131 





70FA 




0132 





COIC 




0133 





E817 




0134 





7401 


OOAF 


0136 





74FF 


014E 


0138 





70E4 





RLHED LD NILOC COMPUTE RELOC FACTOR 3AA03420 

S RLBA 3AA03430 

* 3AA03440 
* 3AA034 50 

* THIS RT. HANDLES ABSOLUTE HDR CARDS. 3AA03460 
* 3AA034 70 

* 3AA03480 
ABHED STO UPPER 3AA03490 

MDX 1 1 INITALlZe CARD COUNT 3AA03500 

STX 1 CDCT 3AA03510 

LDX RDCD 3AA03520 

* 3AA03530 
* 3 AA 03 540 

* THIS ROUTINE HANDLES END OF PROGRAM CARDS 3AA03550 
* 3AA03 560 

* 3AAO3570 
EOP LD 1 INPUT 3AA03580 

A UPPER 3AA03590 

STO NLOC SET NEXT AVAIL LOC 3AAO3bO0 

LD 1 INPUT&3 LD TRANSFER AODRS 3AA03610 

A UPPER 3AA03620 

STO EOPltl 3AA03630 

EOPl BSC L *-* TRANSFER TO PROGRAM 3AA03640 

* 3AA03650 
****** ************»***»***»**********»****t4* 3AA03660 

* HEX DATA ROUTINE 3AA03670 
*****♦******************»*«********«*»**#-!* 5 « 3 AA 036 80 

* THIS ROUTINE CONVERTS HEX CORRECTION 3AA03690 

* DATA TO BINARY AND STORES THE DATA. 3AA03700 
* 3AA03 710 

* 3AA03720 
HEX STO HE22&1 CLEAR STORE ADDRS 3AA03730 
HEXl LD I DATA LOAD RELOCATION BIT 3AA03740 

STO RLREQ STO RELOCATION BIT 3AA03750 

MOX L DATAfl ADV TO NXT WORD 3AA03760 

* 3AA03770 
* 3AA03 780 

* CONVERT HEX TO BINARY 3AA03790 
* 3AA03800 

* 3AA03810 
HEIO LD FOUR 3AA03820 

STO INDXl 3AA03830 

SRA 16 3AA03840 

HEll SLA 4 3AA03850 

STO TEMP 3AA03a60 

SRA 16 3AA03870 

STO INDX2 3AA03880 

LD I DATA CK FOR BLANK COLUMN 3AA03890 
BSC L RDCDtt- FINISHED - LOAD NEXT CARD 3AA03900 

* 3AA03910 
BSC L HEllA,- BR IF NOT A-F 3AA03920 
MDX L INDX2,9 ADD 9 FOR ALPHA 3AA03930 

* 3AA03940 
HEllA SLA 3 ELIMINATE ZONE BITS 3AA03950 

BSC L HE14,&- XFER IF HEX CHAR # 3AA03960 

MDX L INDX2,1 3AA03970 

HE12 BSC L HE13,£Z XFER IF BIT IS FOUND 3AA03980 
SLA 1 PREPARE TO LK AT NEXT BIT 3AA03990 

MDX HE12-2 3AA04000 

* 3AA04010 
HE13 LD INDX2 LOAD BINARY BITS 3AA04020 
HE14 OR TEMP ADD TO PREVIOUS CHARS 3AA04030 

MDX L DATA.l 3AA04040 

MDX L INDXlt-1 3AA04050 

MDX HEll 3AA04060 

* 3AA04070 
* 3AA04080 

* FINISHED - CONVERTED WORD IN ACCUMULATOR 3AA04090 
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« 










3AA04100 


0139 





7400 


0147 




MDX 


L 


HE22eit0 


SKIP IF STO APRS 


3AA04110 


0138 





7007 




» 


MOX 




HE21 


BR IF DATA 


3AA04120 
3AA04130 


013C 





8020 






A 




UPPER 


RELOC STO ADDRS 


3AA04140 


013D 





D009 






STO 




HE2261 




3AA04150 


013E 





C400 


002E 




LD 


L 


INPUT£6 


LD NXT WORD 


3AA04160 


0140 





4C98 


0147 




BSC 


I 


HE22£1,£- 


BR TO AODRS IF BLANK 


3AA04170 


0142 





7002 




♦ 


MDX 




HEXl 


CONV NXT WORD 


3AA04180 
3AA04190 


0143 





7400 


0150 


HE21 


MDX 


L 


RLREQ. 


SKIP IF NO RELOCATE 


3AA04200 


0145 





8017 






A 




UPPER 




3AA04210 


0146 





D400 


0000 


HE22 


STO 


L 


*-* 


STORE DATA 


3AA 04220 


0148 





7401 


0147 




MDX 


L 


HE22ei.l 


ADV STO ADDRS 


3AA04230 


014A 





70CA 




* 


MDX 




HEXl 


CONV NXT WORD 


3AA04240 
3AA04250 
3AA 04260 


0148 





0000 




TEMP 


DC 




*-m 


TEMP STORAGE 


3AA04270 


014C 




0000 






BSS 


E 







3AA 04280 


014C 





0004 




FOUR 


DC 




4 




3AA04290 


014D 





1402 




FDCD 


DC 




/1402 


FEED CARD 


3AA04300 


014E 





0000 




INDXl 


DC 




*-* 




3AA043I0 


014F 





0000 




IN0X2 


DC 




*-• 




3AA04320 


0150 





0000 




RLREQ 


DC 




«-« 


HEX RELOCATION BITS 


3AA04330 


0151 





1000 






NOP 








3AA04340 


0152 





1000 




♦ 


NOP 








3AA04350 
3AA04360 


0153 





30F5 




H30F5 


WAIT 




-11 


1442 ERROR I NO ON 


3AA04370 


0154 





607E 




« 


LDX 




ROCO 


TRY REREADING THE CARD 


3AA04380 
3AA04390 


0155 





08F6 




FEED 

* 


XIO 




FDCD-1 


FEED OUT LAST CARD 


3AA 04400 
3AA04410 










*iiin)i*»*M**ifmm****m*****mm*'¥**************m*** 


3AA04420 










* 






HON I TOR/ LOADER INTERFACE 


3AA04430 










«««««««4"|t«4:4"f*«*4i*«***4t****«*«*0«*««4:«««««««« 


3AA04440 










* THE FOLLOWING MOST BE 


LOCATED IN CORE 


3AA04450 










* LOCATIONS 


/0156-/015F 


• 


3AA04460 










^ ' 










3AA04470 






















* 










3AA04480 


0156 





30F6 




MLCD 


WAIT 




-10 


PROGRAM SHOULD PLACE HERE 


3AA04490 


0157 





70FE 






MDX 




MLCD 


A XFER ON BLANK CARD 


3AA04500 


0158 





30F7 




CKSUM 


WAIT 




-9 


CHECK SUM ERROR 


3AA04510 


0159 





70FE 






MDX 




CKSUM 




3AA04520 


015A 





3000 




OVCR 


WAIT 






EXCEEDED CORE SIZE 


3AA04530 


0158 





70FE 






MDX 




OVCR 




3AA04540 


015C 





0160 




NLOC 


DC 




/160 


NEXT AVAILABLE STORAGE LOG 


3AA04550 


015D 





0000 




UPPER 


DC 




♦-* 


RELOCATION FACTOR 


3AA04560 


015E 





0000 




RLBA 


DC 




0000 


BASE ADDRESS 


3AA04570 


015F 




0001 




ULIM 


BSS 




1 


CORE SIZE 


3AA04580 










^^^*^m*m********A*^***'>i*****>i(*#*******************f 


3AA04590 


0160 




0000 




END 


BSS 


E 







3AA04600 


0160 




0078 






END 




LOAD 




3AA04610 
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C R 


S S 


REFERENCE 






NAME 


VALUE 


REFERENCES 






ABHED 


0108 


COCA 






ADRS 


00A5 


0082 






CDCT 


0103 


0OD2,O0DC,010A 






CHKSM 


002A 


0013, 0015, OOIC 






CKtOP 


OODE 


OODO 






CKSMl 


00D4 


0008 






CKSUM 


0158 


00DA,0159 






CNT 


0055 


0051 






CONTl 


0047 


0035 






C0NT2 


004C 


0049 






CON! 


0025 


0019 






CORE 


005D 








C0RE2 


0062 


0067 






CORE 3 


0071 


006A 






COUNT 


0075 


0057 






DATA 


OOAF 


0084, 0115, 0118, 0121i 


,0134 




DSW 


0OA8 


007E,009E 






END 


0160 


0060 






ENOCK 


OOIF 








EOP 


OlOC 


00E2 






EOPl 


0112 


0111 






ERROR 


002E 


004E 






FDCD 


0140 


0155 






FEED 


0155 


0080 






FIRST 


0074 


004F,0054 






FOUR 


014C 


OllA 






HEX 


0114 


OOAl 






HEXl 


0115 


0142, 014A 






HEIO 


OllA 








HEll 


OllD 


0138 






HEllA 


0129 


0125 






HE 12 


012E 


0131 






HE 13 


0132 


012E 






HE 14 


0133 


012A 






HE21 


0143 


013B 






HE22 


0146 


0114,0139,0130,0140, 


,0148 




INDXl 


014E 


0116,0136 






INDX2 


014F 


0120, 0127, 012C, 0132 






INPUT 


0028 


009F,OOA5,OOB9,OOBBi 
OOFS, 00F8, OlOC, OlOF, 


lOOBE 
,013E 




INT 


0020 


0028 






I NT AD 


0028 


0010 






INTE 


00A6 


005A,007B 






INTO 


008B 


0OA6 






KOOOl 


0026 


0017,0038,0042 






K0003 


OOAA 


008D 






K0800 


0046 


002E 






K0803 


0023 


004C 






K8000 


0048 


0047 






K8003 


0045 


0033 






LB20 


0104 


00C8 






LB25 


0105 


0OC9,OOCC 






LOAD 


0078 


0160 






MLCD 


0156 


0079, 00C6, 0157 






NLOC 


015C 


0106, OlOE 






ONE 


OOAE 


0006,0009 






OPCOM 


0090 


0094 






OVCR 


015A 


00E7,015B 






PACK 


0033 


0024 






RDCD 


007E 


0073, OOFB, 0106,0123, 


,0154 




RDCDl 


0082 








RDC02 


0089 


009C 






RDCD3 


008C 


OOBE, 0097 






RDIN 


002C 


0000,0002,0036,0037, 


,0039 




READ 


OOAC 


0083, 0099, 009A 






RESET 


0029 


O00B,000C, 0021, 0031 
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RLBA 


015E 


0107 


RLHED 


0106 


OOCO 


RLREQ 


0150 


0117,0143 


SB05 


00B3 


00A3 . 


SB06 


00B5 


00C4 


SB07 


00B6 


00C2 


SBIO 


OOBD 


00B8 


SENSE 


002B 


0008, OOOA, 0032 


SENSN 


00A7 


0078, 008C 


SENSR 


00A9 


0085,0089,0090 


SL 


00 BO 


00B6 


SRTRD 


0030 


001F,003B,0044,004A 


START 


0000 


003C,003E 


STORE 


003F 


0006, 0007 , OOOE, GOOF , 0041 ,0043 


STORl 


OOEE 


0100 


ST0R2 


OOFl 


OOFE 


ST0R3 


00F5 


0102 


ST0R4 


00F6 


OOEB 


ST0R5 


OOFC 


OOFA 


ST0R6 


0101 


00F2 


STRD 


0027 


0003,0005,0030 


STRDl 


OOAB 


0088 


STRT 


0013 


0016, 0018, OOIB 


TEMP 


014B 


011E,0133 


ULIM 


015F 


006C,006E,0071,OOE6 


UPPER 


015D 


00E5, ODEA, 0101, 0108»010D, 0110 


H30F4 


0070 




W30F5 


0153 


0091 
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1. PURPOSE 

THE 1130 INTERRUPT TEST PROGRAM IS DESIGNED TO ISOLATE INTtRRUFT FAILURES 
WHICH COULD PREVENT THE LOADING OF OTHER PROGRAMS WITH THE BASIC DIAGNOSTIC 
LOADER IN THE 'LOAD AND GO MODE." THE PROGRAM EXECUTES 2 3ASK. TESTS OR AN 
AUTOMATIC LEVEL RESET LOOP FOR SCOPING THE CAUSE OF A LEVEL NOT 3EING RESET. 
TEST 1 IS RUN ON ALL DEVICES AND CHECKS THE BASIC OPERATION OF THE INTER- 
RUPT FORCED BRANCH, THE PROPER EXECUTION OF A LEVEL 4 INTERRUPT, AND 
ISOLATES INTERRUPT LEVELS WHICH ARE NOT BEING RESET. 

TEST 2 IS RUN ON THE 1442 READER AND CHECKS THE PROPER EXECUTION OF A 
LEVEL 4 INTERRUPT IN CONJUNCTION WITH A LEVEL INTERRUPT, TH- ARRIVU OF 
AN END OP EITHER TOO SOON OR TOO LATE IN CONJUNCTION WITH THE COLUMN 
INTERRUPT, AND PROPER EXECUTION OF A LEVEL INTERRUPT. 

BOTH TESTS PROVIDE ERROR WAITS, ERROR LOOPS, AND SCOPE LOOP ROUTINES TO 
HELP DIAGNOSE THE FAILURE AND AID IN A QUICK REPAIR. 

THE AUTOMATIC LEVEL RESET LOOP MODE IS FOR SCOPING THE RESET PROBLEM -vND A 
WAIT INDICATE THE RESETTING OF THE INTERRUPT, IF IT OCCURS. 

2. PREREQUISITES 

2.1 PROGRAM PREREQUISITES 

1130 BASIC DIAGNOSTIC LOADER. 

2.2 EQUIPMENT PREREQUISITES 

CARD READER OR PAPER TAPE READER. 



3. OPERATING PROCEDURES 

3.1 PROGRAM LOADING 

1. THE 1130 INTERRUPT TEST IS LOADED BY THE Uiu -^ASIC DIAGNUSflC 
LOADER. 

2. SET THE C. E. INTERRUPT DELAY SWITCH TO THE " liN ' POSITION. 

3. SEE BASIC DI4GN0STIC LOADER DOCUMENTATION FOR LOADING ^ROCEDUKt. 

3.2 PROGRAM 0PER4TIQN 

1. AFTER THE PROGRAM !S LOADED, A WAIT lF HILL G,;CUR. AT THIS TIME, 
THE I/O DEVICE BY WHICH THE PROGRAM WAS LOADED, AND THE PROGRAM 
MODE ARE TO BE SELECTED VIA THE BIT SWITCHES. SEc Tj^GLE A, WAIT 

THE REASON THE DH^ICE WHICH LOADED THE PROGRAM NiUST BE SELECTED, 
IS THAT WITH THE C.E. INTERRUPT DELAY SWITCH IN THE ON POSITION, 
THE BASIC LOADER GENERATES A LEVEL 4 INTERRUPT WHICH CAN NOT HE 
SERVICED. WHEN THE C.E. INTERRUPT DELAY SWITCH IS TURNED OFF, 
THE LEVEL 4 INTERRUPT MUST BE SERVICEC BEFORE ANY OTHER INTERRUPT 
CAN BE EXECUTED. 

2. IF THE PROGRAM DETECTS NO ERRORS, AND THE AUTOMATIC LOOP RESET 
MODE IS NOT SELECTED, THE PROGRAM WILL HALT AT WAIT 4. IF A 
RERUN OF THE PROGRAM IS DESIRED, DEPRESS START, 

3. ALL OTHER WAITS AND LOOPS ARE EXPLAINED IN TABLES A, B, AND C 
OF 3.3. 

4. TO GO INTO A SCOPE LOOP AFTER A FAILURE HAS BEEN DETECTED, 
DEPRESS START. THE SCOPE LOOP IS SET UP FOR A 2 FEED/CYCLE PF.< 
SECOND RATE, AND A WAIT AFTER 100 FEED CYCLES HAVE BEEN EXECUTFO. 
THE C.E. HAS AN OPTION TO CHANGE THESE VALVES. ISEE 3.4) 

3.3 WAITS AND LOOPS 

1. TABLE A - TEST 1 WAITS AND SCOPE LOOPS - 

WAIT — OP CODE OJOO. NO TRANSFER TOOK PLACE FROM I/O BUSS 
TO B REG. LOGIC KM201. 



WAIT F — 'INITIAL' DEVICE SELECTION AND PKOGHaM MODE 
A. MAKE PROGRAM READ IN DEVICE :*EADY. 



lECTION, 



B. SELECT PROGRAM READ IN DEVICE, USING HIT SWITCHES. 
0, 1, OR 2 AS FOLLOWS, 

1. BIT O-ON AND BITS 1 AND 2 OFF., 1442 READER 

2. BIT 1-ON AND BITS AND 2 OFF.. P.T. READER 

3. BIT 2-ON AND BITS AND I OFF,. 2501 READER 
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4. PRINTOUTS (NONE) 

5. PROGRAM PHILOSOPHY 

INTERRUPT TEST HILL BE RUN AFTER PROBLEMS ARE ENCOUNTERED WHEN TRYING TO 
LOAD A PROGRAM WITH THE BASIC LOADER IN THE LOAD AND GO MODE. THE CE 
INTERRUPT DELAY SWITCH IS THEN PLACED IN THE ON POSITION AND THE C.P.U. 
TEST IS THEN LOADED, AGAIN USING THE BASIC LOADER. THE SWITCH BEING ON, 
ALLOWS THE C.P.U. TEST TO BE LOADED WITHOUT THE INTERRUPT CIRCUITRY. IF THE 
C.P.U. TEST RUNS SUCCESSFULLY, THEN THE INTERRUPT CIRCUITRY WOULD BECOME 
THE PRIME AREA OF SUSPICION AS CAUSE OF THE LOADING PROBLEM. THE INTERRUPT 
TEST WOULD THEN BE RUN NEXT. 

THE INTERRUPT TEST DOES NOT CHECK ON DATA TRANSFER, BUT DOES CHECK THE 
PROPER OPERATION OF THE INTERRUPT FORCED BRANCH INSTRUCTION AND THE PROPER 
LEVEL INTERRUPT ADDRESS. IN HOST CASES, AFTER THE TEST LOCATES THE PROBLEM 
AND IDENTIFIES IT WITH THE PROPER WAIT, A SCOPING LOOP CAN BE ENTERED BY 
DEPRESSING START. THE C.E. HAS 3 OPTIONS AT HIS CONTROL WHILE IN THE SCOPIN 
LOOP. THESE ARE 

1. DELAY BETWEEN FEED CYCLES 

2. NUMBER OF FEED CYCLES BETWEEN WAIT 2 

3. AN OPTION TO SELECT ANOTHER DEVICE IF THERE IS ONE AVAILABLE 

THE INTERRUPT TEST ALSO ALLOWS THE C.E. TO SELECT AN AUTOMATIC LEVEL RESET 
LOOP MODE. THIS OPTION IS TO BE USED WHEN A LEVEL CANNOT BE RESET. IF 
THIS WERE THE CASE, MOST OF THE PROGRAM'S TIME WOULD BE SPENT TRYING TO 
SERVICE THE INTERRUPT LEVEL AND PROGRAM OPERATION WOULD BE VERY ERRATIC. 
THEREFORE, THIS OPTION IS SET UP WITH A MINIMUM OF PROGRAM STEPS AFTER THE 
C.E. INTERRUPT DELAY SWITCH IS TURNED OFF. IF THE INTERRUPT LEVEL IS RESET, 
A WAIT WILL INDICATE SO. 

THE INTERRUPT TEST AIDS IN LOCATING PROBLEMS IN 3 BASIC AREAS. THEY ARE 

1. LEVEL 4 <END OP) OF THE READ IN DEVICES 

2. LEVEL (COLUMN) OF THE 1442 

3. LEVELS WHICH CANNOT BE RESET 

LEVEL 4 - AT THE END OF A FEED OPERATION, THIS INTERRUPT IS GENERATED.' THE 
TEST TRAPS SUCH FAILURES AS NO INTERRUPT GENERATED DURING A WAIT OP, NO 
INTERRUPT GENERATED WHILE PROGRAM IS RUNNING, NO TRANSFER OF BSI L INSTRUCTI 
BITS OR INTERRUPT ADDRESS BITS FROM I/O BUSS TO B REG, DROPPING OR PICKING 
BITS BETWEEN I/O BUSS AND B REG, AND THE DETECTION OF AN INTERRUPT LEVEL NOT 
BEING RESET WHILE THIS TEST IS BEING RUN. ALL READ/IN DEVICES USE THIS PHAS 
OF THE TEST AND THE WAITS ARE IDENTIFIED BY WAIT IX WHERE X IS THE PROBLEM 
IDENTIFIER. 

LEVEL - THE 1442 IS THE ONLY READ/IN DEVICE USING THIS PHASE OF THE TEST. 
THE TEST TRAPS PROBLEMS AS NO INTERRUPT GENERATED, NO LEVEL 4 INTERRUPT 
GENERATED AFTER AT LEAST 1 LEVEL INTERRUPT, PICKED OR DROPPED ADDRESS 
BITS ASSOCIATED WITH A LEVEL INTERRUPT, LESS THAN 80 COLUMN INTERRUPTS 
BEFORE AN END OP, AND MORE THAN 80 COLUMNS BEFORE AN END OP. THE WAITS 
ASSOCIATED WITH THIS PHASE ARE-WAIT 2X, WHERE X IDENTIFIES THE PROBLEM. 

AUTOMATIC LEVEL RESET LOOP - ALLOW SCOPING OF LEVELS WHICH CANNOT BE RESET. 
THIS MODE IS IDENTIFIED BY WAIT 3F. IF THE LEVEL IS RESET WHILE LOOPING, 
THE PROGRAM WILL WAIT. THE WAITS ASSOCIATED WITH THIS PHASE ARE-WAIT 3X, 
WHERE X IDENTIFIES THE LEVEL. DEPRESSING START WILL CAUSE THE PROGRAM TO GO 
WAIT 1, WHERE A NEW SETUP CAN BE MADE. 

THE TEST IS DYNAMIC WHILE TESTING LEVEL AND LEVEL 4 INTERRUPT OPERATION. 
IF AN INTERMITTENT FAILURE IS ENCOUNTERED, THE PROGRAM WILL INDICATE EACH 
FAILURE. IF THE TEST IS IN A SCOPE LOOP AND THE TROUBLE DISAPPEARS, THE 
PROGRAM AUTOMATICALLY RECOVERS AND TRIES TO COMPLETE A SUCCESSFUL RUN OR TRA 
ANY OTHER FAILURE THAT MIGHT OCCUR. 
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IF PROGRAM IS BEING RUN BECAUSE AN INTRPT * 

* INDICATOR IS NOT BEING CLEARED, SET COSOLE* 

* ENTR\' SWITCHES <* 7 TO IDENTIFY LEVEL AT * 

* FAUL' AND SELECT DEVICE TO bE USED IN TEST* 
- MAKE DEVICE READY AND PUSH START. * 

■" IF PHOGRAK IS BEING RUN BECAUSE OF SOME * 

* OTHE" REASON THAN STATED ABOVE, * 
'- A. SELECT DEVICE VIA CONSOLE SWITCHES <= 

2. * 

B. MAKE DEVICE READY. * 

* C. PRESS START. * 

* NOTE INITIAL WAIT F , SELECT PROGRAM READ * 
=» IN DEVICE * 

a »*«*# »*****;;>*:(; <:***>!:-:^****sJ:«*!;!S!***« «*«**;;!**** 
-■tt *************************** i**************^ 

>r INTERRUPT VECTOR SETUP. * 
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* C. PRESS START. 
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* NO DEVICE WAS FOUND TO BE SELECTED. * 

* MAKE SELECTION AND PRESS START. * 

* * 
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NO DEVICE SELECTED 
SET UP TO CHK AGAIN 

READ BIT SWITCHES 
LOAD BIT SWITCHES 
LEVEL ON CHECK 
LEVEL CHECK BITS 
CHECK FOR LEVEL ON 
SET UP LEVEL LOOP 
LEVEL CHECK BITS 
NUM OF LEVEL IS ODD 
CHECK FOR LEVEL 2 ON 
SET UP LEVEL 2 LOOP 
CHECK FOR LEVEL 4 ON 
SET UP LEVEL 4 LOOP 
NO RESET LOOP SEL. 



* WAIT 3F 

* LEVEL RESET LOOP OPTION HAS BEEN CHOSEN. 

* TURN C.E. INTERRUPT SWITCH - OFF. THIS 

* SHOULD SET UP AN AUTOMATIC RESET LOOP FOR 

* DEVICE AND LEVEL SELECTED, FOR SCOPE/WORK. 

***************************** *******S! **«***:! 

* RESTORE LEVEL RESET LOOP WAITS 
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SET UP LEVEL 5 LOOP 
SET UP LEVEL 1 LOOP 



SET LEV LOOP VECTOR 
SET UP, GO TO WAIT 3F 
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SET UP 1442 PROG VEC 

* WAIT A * 

* 1442 SELECTED AND NOT READY. MAKE IT READY* 

* OR SOME OTHER DEVICE SELECTION VIA CONSOLE* 

* ENTRY SWITCHES. PUSH START. * 

SEL 1442/NOT READY 
CHK DEVICE AGAIN 

SENSE P.T. READY 

CHK NOT READY 
SET UP P.T. PROG VEC 
***»♦»♦»*****»♦*♦♦♦»**♦**♦*«***««***♦♦**♦*♦** 

* WAIT B » 

* P.T. SELECTED AND NOT READY. MAKE IT READY* 

* OR SOME OTHER DEVICE SELECTION VIA CONSOLE* 

* ENTRY SWITCHES. PUSH START. * 
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CHK DEVICE AGAIN 
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STX 




BAD1462 




3A802240 






05EF 





6000 


07F6 






STX 




N0ADRE2 




3A 802 2 50 






05F1 





6000 


0803 






STX 




0SWCK&3 




3A802260 






05F3 





6D00 


080C 


* 




STX 




DSWCK612 




3A802270 
3A802280 






05F5 





6580 


0A8E 






LDX 




SRAOl 


SET UP 1442 BUSY CHK 


3A802290 






05F7 





6000 


06DE 


* 




STX 




BUSY62 




3A802300 
3A802310 






05F9 





6580 


0A8D 






LDX 




NOPIT 


SET UP 1442 CONTROLS 


3A802320 






05FB 





6000 


06EC 






STX 




TESTie4 




3A802330 






05FD 





6D00 


0804 






STX 




0SWCK64 




3A802340 






05FF 





6D00 


0800 


* 




STX 




0SWCKei3 




3A802350 
3A802360 






0601 





6500 


0A6C 






LDX 




FEED 


SET UP 1442 XIO 


3A802370 






0603 





6D00 


06F0 


* 




STX 




TEST168 




3A802380 
3A802390 






0605 





6500 


0A87 






LDX 




KlOO 


SET UP 1442 LOOP CNT 


3A802400 






0607 





6D00 


06FF 






STX 




NUMBRGl 




3A802410 






0609 





6D00 


0724 


* 




STX 




NUMCKGl 




3A802420 
3A802430 






060B 





6500 


0A84 






LDX 




KOlO 


SET UP 1442 GOOD CNT 


3A802440 






0600 





6000 


07AA 


* 




STX 




FINSH61 




3A802450 
3A802460 






060F 





6500 


oe2A 






LDX 




SETUP 


SET UP 1442 TEST VEC 


3A80247O 






0611 





6000 


07AC 


* 




STX 




FINSHES 




3A802480 
3A802490 














*♦*****«**********♦»**♦♦**«»*♦««***«*»««♦*« »* 


3A8025OO 














* 










* 


3A802510 














* 








WAIT 5 * 


3A8i)2520 














* 










* 


3A802530 














* 


1442 WAS 


FOUND READY 


AND WILL BE THE > 


3A802540 














* 


DEVICE USED 


IN THE TEST. 


3A802550 














* 


IF 


INTERRUPT DELAY Sy 


I ON, TURN OFF * 


3A802560 














* 


IF 


PROGRAM f 


JOES NOT ! 


5TART RUNNING BECAUSE s 


348C2570 














* 


OF 


A PENDING INTERRUPT, DEPRESS START. * 


3A802580 














♦ 










* 


3A8025')0 














********************************************* 


3A802600 






0613 





3005 








WAIT 




5 


1442 SELECTED 


3A802610 






0614 





OCOO 


0A68 






XIO 


L 


BITSW 


READ BIT SWITCHES 


3A802620 






0616 





C400 


0A79 






LO 


L 


BITSl 


LOAD BIT SWITCHES 


3A802630 






0618 





180C 








SRA 




12 




3A802640 






0619 





9400 


0A7A 






S 


L 


BITS2 


LAST DEVICE SELECTED 


3A802650 






061B 





4C18 


053F 






BSC 


L 


CKLOP,£- 


CHK FOR LEVEL LOOP 


3A802560 






0610 





4C00 


0529 


* 




BSC 


L 


WHICH 


NEW DEVICE SELECTED 


3A802670 

3A802680 






061F 





6500 


0A5C 


SETPT 


LDX 


LI 


SENPT 


SET UP PT SENSE WD 


3Aa02690 






0621 





6000 


0600 






STX 


LI 


BUSY61 




3A802700 






0623 





6000 


06EB 






STX 


LI 


TEST1E3 




3A802710 






0625 





6D00 


072B 






STX 


LI 


WAITGE2 




3A802720 






0627 





6000 


0737 






STX 


LI 


VEC00E2 




3A802730 




DATE 


01MAY66 15N0V66 


15JUN67 


15FEB68 




PROG ID 


03A8-0 


EC NO. 


415490B 419605 


420317 


420403 




PAGE 


2A 
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3A 



0629 





6000 


0747 






STX 


LI 


VEC01E,2 




3A802740 


062B 





6000 


0757 






STX 


LI 


VEC02t2 




3A802750 


0620 





6000 


0767 






STX 


LI 


VEC03&2 




3A802760 


062F 





6000 


0773 






STX 


LI 


VEC04£.2 




3A802770 


0631 





6000 


07BE 






STX 


LI 


VEC05£.2 




3A802780 


0633 





6000 


07CA 






STX 


LI 


CKD0K&2 




3A802790 


0635 





6000 


070E 






STX 


LI 


BAD12£2 




3A802800 


0637 





6000 


07EA 






STX 


LI 


BAD14t2 




3A8O2810 


0639 





6000 


07F6 






STX 


LI 


N0ADRe2 




3A802820 


063B 





6000 


0803 






STX 


LI 


DSWCKt3 




3A802830 


0630 





6000 


080C 


* 




STX 


LI 


DSWCKC12 




3A802840 
3A802850 


063F 





6580 


0A90 






LDX 


11 


SRAll 


SET UP P.T. BUSY CHK 


3A802860 


06'tl 





6000 


060E 


* 




STX 


LI 


BUSY&2 




3A802870 
3A802880 


0643 





6580 


0A8F 






LDX 


11 


SRAIO 


SET UP P.T. RDY CHK 


3A802890 


0645 





6000 


06EC 






STX 


LI 


TEST1&4 




3A802900 


0647 





6000 


0804 






STX 


LI 


DSWCKt4 




3A802910 


0649 





6000 


0800 


» 




STX 


LI 


DSWCKei3 




3A802920 
3A802930 


064B 





6500 


0A74 






LDX 


LI 


CNTRL 


SET UP P.T. XIO 


3A802940 


0640 





6000 


06F0 


* 




STX 


LI 


TEST1C8 




3A802950 
3A802960 


064F 





6500 


0A87 






LDX 


LI 


KlOO 


SET UP P.T. CHAR CNT 


3A8O2970 


0651 





6000 


06FF 






STX 


LI 


NUMBRCl 




3A802980 


0653 





6000 


0724 






STX 


LI 


NUMCK&l 




3A802990 


0655 





6000 


07AA 


* 




STX 


LI 


FINSH£1 




3A8O3000 
3A803010 


0657 





6500 


09 13 






LDX 


LI 


WAITA 


SET UP P.T. TEST VEC 


3A803020 


0659 





6000 


07AC 


* 




STX 


LI 


FINSHC3 




3A803030 
3A803040 










^:*3;:#*^***s^^ 


************** 


********************* 


3A803050 










* 










* 


3A803060 










* 








WAIT 


6 * 


3A803070 










* 










* 


3A803080 










* 


PAPER TAPE WAS FOUND READY AND WILL BE THE* 


3A803090 










* 


DEVICE USED 


IN THE TEST. * 


3A80310O 










* 


IF 


INTERRUPT DELAY SW 


ON, TURN OFF * 


3A803110 










* 


IF 


PROGRAM DOES NOT START RUNNING BECAUSE * 


3A803120 










* 


OF 


A PENDING INTERRUPT 


, DEPRESS START. * 


3A803130 










* 










* 


3A803140 










«*«*«*«««*♦##* *»**#*«* ****!!:«***«*«!)!******#»** 


3A803150 


065B 





3006 








WAIT 




6 


PAPER TAPE SELECTED 


3A803160 


066C 





OCOO 


0A6e 






XIO 


L 


BITSW 


READ BIT SWITCHES 


3A803170 


06bE 





C400 


0A79 






LD 


L 


BITSl 


LOAD BIT SWITCHES 


3A803180 


0660 





180C 








SRA 




12 




3A803190 


0661 





9400 


0A7A 






S 


L 


BITS2 


LAST DEVICE SELECTED 


3A803200 


0663 





4C18 


053F 






BSC 


L 


CKLOP,£- 


CHK FOR LEVEL LOOP 


3A803210 


0665 





4C00 


0529 


* 




BSC 


L 


WHICH 


NEW DEVICE SELECTED 


3A803220 
3A803230 


0667 





6500 


0A5E 


SET2E 


> LDX 


LI 


SEN25 


SET UP 2501 SENSE WD 


3A803240 


0669 





6000 


0600 






STX 


LI 


BUSYCl 




3A803250 


066B 





6000 


06EB 






STX 


LI 


TESTieS 




3A803260 


0660 





6000 


072B 






STX 


LI 


WAITGS2 




3A803270 


066F 





6000 


0737 






STX 


LI 


VEC00E2 




3A803280 


0671 





6000 


0747 






STX 


LI 


VEC01£2 




3A803290 


0673 





6000 


0757 






STX 


LI 


VEC02t2 




3A803300 


0675 





6000 


0767 






STX 


LI 


VEC03C2 




3A803310 


0677 





6000 


0773 






STX 


LI 


VEC04G2 




3A803320 


0679 





6000 


07BE 






STX 


LI 


VEC05C2 




3A803330 


067B 





6000 


07CA 






STX 


LI 


CKD0K£2 




3A803340 


067D 





6D00 


07DE 






STX 


LI 


BAD12C2 




3A803350 


067F 





6000 


07EA 






STX 


LI 


BAD14C2 




3A803360 


0681 





6000 


07F6 






STX 


LI 


N0ADRt2 




3A803370 


0683 





6D00 


0803 






STX 


LI 


DSWCKC3 




3A803380 


0685 





6000 


080C 


* 




STX 


LI 


0SWCK£12 




3A8O3390 
3A803400 


0687 





6580 


0A8E 






LDX 


U 


SRACl 


SET UP 2501 BUSY CHK 


3A803410 



0689 





6D00 


06DE 






STX 


LI 


BUSYf;2 




3A803420 










* 












3A803430 


0688 





6580 


0A8D 






LDX 


11 


NOPIT 


SET UP 2501 CONTROLS 


3A803440 


0680 





6000 


06EC 






STX 


LI 


TESTlt4 




3A803450 


068F 





6000 


0804 






STX 


LI 


DSWCK£4 




3A803460 


0691 





6D00 


0800 


* 




STX 


LI 


DSWCKS13 




3A803470 
3A803480 


0693 





6500 


0A6E 






LDX 


LI 


FEEDS 


SET UP 2501 XIO 


3A803490 


0695 





6000 


06F0 


* 




STX 


LI 


TESTUS 




3A8035OO 
3A803510 


0697 





6500 


0A87 






LDX 


LI 


KlOO 


SET UP 2501 CARD CNT 


3A80352O 


0699 





6000 


06FF 






STX 


LI 


NUMBRtl 




3A803530 


069B 





6000 


0724 






STX 


LI 


KUMCKEl 




3A803540 


0690 





6D00 


07AA 


* 




STX 


LI 


FINSHf.l 




3A80355O 
3A80356O 


069F 





6500 


0913 






LDX 


LI 


WAITA 


SET UP 2501 TEST VEC 


3A80357O 


06A1 





6D00 


07AC 


* 




STX 


LI 


FINSH{.3 




3A803580 
3A80359O 










********** 


************* 


******;;;***** ^; ;;: * ^: ^: * * ^- * * 


3A80360O 










* 










::■ 


3A8036I0 










* 








WAIT 7 * 


3A803620 










* 










* 


3A80363O 










* 


2501 WAS 


FOUND READY 


AND WILL Bfc THE * 


3A803640 










* 


DEVICE USED 


IN THE TEST. * 


3A803650 










* 


IF 


SOME 


OTHER DEVICE 


IS DESIRED, MAKE THAT* 


3Afc03660 










* 


DEVICE READY AND MAKE 


NEW DEVICE SELECTION* 


3A8036TO 










* 


VIA 


THE 


CONSOLE ENTRY 


SWITCHES. * 


3A803fefeO 










* 










* 


3A803690 










*4 


I******** 


**»- 


s********* 


************** :;: * * * * * * * 


3A8037OO 


06A3 





3007 








WAIT 




7 


2501 SELECTED 


3A80371O 


06A4 





OCOO 


0A68 






XIO 


L 


BITSW 


READ BIT SWITCHES 


3A80372O 


06A6 





C400 


0A79 






LD 


L 


BITS! 


LOAD BIT SWITCHES 


3A803730 


06A8 





180C 








SRA 




12 




3A803740 


06A9 





9400 


0A7A 






S 


L 


BITS2 


LAST DEVICE SELECTED 


3A80375O 


06AB 





4C18 


053F 






BSC 


L 


CKLOP,£- 


CHK FOR LEVEL LOOP 


3A803760 


06A0 





4CO0 


0529 


* 




BSC 


L 


WHICH 


NEW DEVICE SELECTED 


3A80377O 
3A803780 


06AF 





6300 




CLRIX 


LDX 


3 







3A803790 


06B0 





6200 








LDX 


2 







3A803800 


06B1 





6100 








LDX 


1 







3A803810 


0662 





6500 


0771 






LDX 


LI 


VEC04 




3A803820 


06B4 





6D00 


OOOC 






STX 


LI 


/OOOC 




3A803830 


06B6 





C400 


0728 






LD 


L 


NUMCK£5 


RESTORE LOOP CHK VEC 


3A803840 


06B8 





0400 


740 






STO 


L 


M0013£6 




3A803850 


06BA 





0400 


0750 






STO 


L 


M0D14£6 




3A803860 


06BC 





D400 


0760 






STO 


L 


M0D15£6 




3A80387O 


06BE 





D400 


0770 






STO 


L 


M0D16£6 




3A80388O 


06C0 





D400 


07C7 






STO 


L 


M0D17£6 




3A803890 


06C2 





D400 


07E7 






STO 


L 


M0D18E6 




3A803900 


06C4 





D400 


07F3 






STO 


L 


M0D19£6 




3A803910 


06C6 





D400 


07FF 






STO 


L 


M001A£6 




3A803920 


06C8 





6500 


3013 






LDX 


LI 


/3013 




3A803930 


06CA 





6000 


073A 






STX 


H 


MOD 13 


RESTORE WAIT 13 


3A803940 


06CC 





6500 


3014 






LDX 


LI 


/3014 




3A803950 


06CE 





6000 


074A 






STX 


LI 


M0D14 


RESTORE WAIT 14 


3Ae03960 


0600 





6500 


3015 






LDX 


LI 


/3015 




3A803970 


0602 





6000 


075A 






STX 


LI 


M0D15 


RESTORE WAIT 15 


3A803980 


06D4 





6500 


3016 






LDX 


LI 


/3016 




3A803990 


06D6 





6D00 


076A 






STX 


LI 


M0D16 


RESTORE WAIT 16 


3A804000 


06D8 





6500 


3017 






LDX 


LI 


/3017 




3A804010 


060 A 





6D00 


07C1 


* 




STX 


LI 


M0017 


RESTORE WAIT 17 


3A804020 
3A804030 


060C 





OCOO 


0A5A 


BUSY 


XIO 


L 


SENSE 


SENSE DSW 


3A804040 


06UE 





1801 








SRA 




1 


SET UP TO CHK BUSY 


3A804050 


06DF 





4C04 


060C 






BSC 


L 


BUSY,E 


CHECK FOR BUSY 


3A804060 


06E1 





OCOO 


0A68 






XIO 


L 


BITSW 


SENSE BIT SWITCHES 


3A804070 


06E3 





C400 


0A79 






LD 


L 


BITSl 


LOAD BIT SWITCHES 


3A804080 


06E5 





180C 








SRA 




12 


CHK FOR WAIT 1 OPT 


3A804090 



DATE 


01MAY66 


15N0V66 


15JUN67 


15FEB68 


EC NO. 


415490B 


419605 


420317 


420403 



PROG ID 
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06E6 





4C04 


0772 


* 


BSC 


L 


VEC04£1,E 


SET UP FOR RESTORE 


3A804100 
3A804110 


06E8 





6780 


0A7F 


TESTl 


LDX 


13 


DELAY 


500 MSEC DELAY 


3Ae04120 


06EA 





OCOO 


0A5A 




XIO 


L 


SENSE 


SENSE FOR READY 


3A804130 


06EC 





1000 






NOP 








3A804140 


06ED 





4C04 


0800 




BSC 


L 


DSWCK,E 


CHECK FOR READY 


3A 804 150 


06fcF 





OCOO 


0A6C 


* 
* 
* 

* 

* 

* 


XIO 


L 


FEED 


FEED 

******************** 

* WAIT 11 * 

* NO INTERRUPTS * 

* HERE GENERATED. * 

* TO CKECK OUT RUN * 
« TRIGGER, PUSH * 

* START * 


3A804160 
3A804170 
3A804180 
3A804190 
3A804200 
3A804210 
3A804220 
3A804230 
3A804240 
3A804250 


06F1 





3011 




RUNCK 


WAIT 




/ll 


NO INTERRUPTS 


3A804260 


06F2 





701A 




MODll 


MDX 




CKRUN 


SET UP RUN TRIG CHK 


3A804270 


06F3 





73FF 






MOX 


3 


-1 


DECREMENT DELAY BY 1 


3A804280 


06F4 





70FE 






MDX 




M0D1161 




3A804290 


06F5 





6100 






LDX 


1 







3A804300 


06F6 





6000 


0A7C 




STX 


LI 


GDCNT 


RESET GOOD PASS CNTR 


3A804310 


06F8 





C400 


0A7E 




LD 


L 


LPCNT 


LOAD LOOP COUNT 


3A804320 


06FA 





8400 


0A81 




A 


L 


ADDOl 


ADD 1 TO LOOP COUNT 


3A804330 


06FC 





0400 


0A7E 




STO 


L 


LPCNT 


STORE LOOP COUNT 


3A804340 


06FE 





9400 


0A87 


NUMBR 


S 


L 


KlOO 


CHK FOR STOP LOOP 


3A804350 


0700 





4C10 


0818 


* 

* 

* 
* 
* 

* 
* 

* 
* 


BSC 


L 


WAIT2,- 


******************** 

* WAIT 12 * 

* NO INTERRUPTS * 

* WERE GENERATED. * 

* SETTING OF RUN * 

* TRIGGER APPEARS * 

* NOT TO BE THE * 

* CAUSE OF THE * 

* FAILURE. * 
» TO GO INTO SCOPE * 

* LOOP, PUSH START.* 


3A804360 
3A804370 
3A804380 
3A804390 
3A804400 
3A804410 
3A804420 
3A804430 
3A804440 
3A804450 
3A804460 
3A804470 
3A804480 
3A804490 


0702 





3012 




RUNOK 


WAIT 




/12 


NO INT-RUN TRIG CKED 


3A804500 


0703 





6500 


0771 




LDX 


LI 


VEC04 




3A804510 


0705 





6D0O 


OOOC 




STX 


LI 


/OOOC 


SET UP LEVEL 4 VEC 


3A804520 


0707 





6500 


1000 




LDX 


LI 


/1 000 


NOP 


3A804530 


0709 





69E7 






STX 


1 


RUNCK 


SET UP SCOPE LOOP 


3A804540 


070A 





69 E 7 






STX 


1 


MOOll 




3A804550 


0708 





69F6 






STX 


1 


RUNOK 




3A804560 


070C 





7009 




* 


MDX 




FOCYC 


BRANCH TO SCOPE LOOP 


3A804570 
3A804580 


070D 





6500 


1000 


CKRUN 


LDX 


LI 


/lOOO 


SET UP RUN TRIG CHK 


3A804590 


070F 





69E1 






STX 


I 


RUNCK 




3A804600 


0710 





69E1 






STX 


1 


MODll 




3A804610 


0711 





6500 


07C8 




LDX 


LI 


CKDOK 




3A804620 


0713 





6D00 


OOOC 




STX 


LI 


/OOOC 




3A804630 


0715 





70C6 




* 


MDX 




BUSY 


CHECK RUN TRIGGER 


3A804640 
3A804650 


0716 





6100 




FOCYC 


LDX 


1 







3A804660 


0717 





6000 


0A7C 




STX 


LI 


GDCNT 


RESET GOOD PASS CNTR 


3A804670 


0719 





4C00 


0999 


* 


BSC 


L 


CNTCK 


CHK COUNT OPTION 


3A804680 
3A804690 


071B 





73FF 




ERROR 


MDX 


3 


-1 




3A804700 


071C 





70FE 






MDX 




ERROR 


STEP DOWN DELAY 


3A804710 


071D 





C400 


0A7E 




LD 


L 


LPCNT 


LOAD LOOP COUNT 


3A804720 


071F 





8400 


0A83 




A 


L 


KOOl 


ADD 1 TO LOOP CNT 


3A804730 


0721 





D400 


0A7E 




STO 


L 


LPCNT 


STORE LOOP CNT 


3A804740 


0723 





9400 


0A87 


NUHCK 


S 


L 


KlOO 


CHECK FOR STOP LOOP 


3A804750 


0725 





4C10 


0729 




BSC 


L 


WAITG,- 


CHECK FOR WAIT 2 


3A804760 


0727 





4C0O 


0716 




BSC 


L 


FDCYC 


FEED AGAIN 


3A804770 
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0729 3002 
072A OCOO 0A5A 
0720 6100 
072D 6D0O 0A7E 
072F 4C00 0716 

0731 0000 

0732 OCOO 0A5C 

0734 7001 

0735 0000 

0736 OCOO 0A5A 
0738 4C40 073A 



073A 3030 



0738 6580 0A92 

073D 6D00 073A 

073F 4C00 0503 

0741 0000 

0742 OCOO 0A64 

0744 7001 

0745 0000 

0746 OCOO 0A5A 
0748 4C40 074A 



074A 3031 



074B 6580 0A93 
074D 6D00 074& 



« 










3A804780 


4<4i««*4i*«*««4i4i**«««4*« A ««««««*# *«««*«««««««#«« 


3A804790 


« 








* 


3A804800 


« 






WAIT 


2 * 


3A804810 


« 








« 


3A804820 


* NORMAL WAIT 


AFTER DESIRED NUMBER OF LOOPS * 


3A804830 


* PASSES HAVE 


BEEN MADE. 


PUSH START TO MAKE ♦ 


3A804840 


* ANOTHER 1 


^OOP CYCLE. 


* 


3A804850 


«««««4c4i«**«****«»*4i«««*««««**<i««:«««»»**«»*««4< 


3A804860 


« 










3A804870 


WAITG 


WAIT 




2 


STOP SCOPE LOOP 


3A804880 




XIO 


L 


SENSE 




3A804890 




LDX 


1 







3A804900 




STX 


Ll 


LPCNT 


RESET LOOP COUNT 


3A804910 




BSC 


L 


FOCYC 




3A804920 


« 










3A804930 


LOOPO 


DC 







«««««4i««:«#*««««<:«««« 


3A804940 




XIO 


L 


SENPT 


* LEVEL AUTO » 


3A804950 




MDX 




VECOOCl 


* LEVEL RESET LOOP «= 


3A804960 


* 








****»*♦**«*«**<!***»<. 


3A804970 


VECOO 


DC 







* LEVEL RESET » 


3A804980 




XIO 


L 


SENSE 


* SCOPE LOOP * 


3A804990 




BOSC 


L 


M0D13 


«««<<««4i«««i«i4i«««:«»«i«« 


3A805000 


* 










3A805010 


* 








«4>«*4:«««««««»»««««*« 


3A805020 


* 








* INTERRUPT LEVEL* 


3A805030 


* 








* WAIT 30 * 


3A805040 


* 








• RESET DURING AUTO* 


3A805050 


* 








* SCOPE LOOP. » 


3A805060 


* 








* PUSH START TO GO * 


3A805070 


* 








♦ TO WAIT 1. * 


3A805080 


« 








♦*********«**♦*»***» 


3A805090 


* 








*»»»»»»«*#**»»»«»*«« 


3A805100 


* 








* WAIT 13 * 


3A805110 


M0D13 


WAIT 




/30 


* DROPPED ADDR BIT * 


3A805120 


* 








* 13. PUSH START * 


3A805130 


* 








* FOR SCOPE LOOP * 


3A805140 


* 








*****»♦***«**<:##*#»* 


3A805150 




LDX 


11 


MOFYB 


MDX ERROR 


3A805160 




STX 


LI 


M0013 




3A805170 




BSC 


L 


MAPIT 




3A805180 


« 








*********»*«*#****## 


3A805190 


LOOPl 


DC 







* * 


3A805200 




XIO 


L 


PRINT 


» LEVEL 1 AUTO * 


3A805210 




MDX 




VECOiei 


* LEVEL RESET LOOP * 


3A805220 


* 








*«**««*«**«*»*»«»»«» 


3A805230 


VECOl 


DC 







* LEVEL 1 RESET * 


3A805240 




XIO 


L 


SENSE 


* SCOPE LOOP * 


3A805250 




BOSC 


L 


M0D14 


*»#»<.»:*<<*»**#<<****#» 


3A805260 


* 










3A805270 


# 








*«**<!«««»**!»!»♦»«**** 


3A805280 


« 








* WAIT 31 * 


3A805290 


* 








* INTERRUPT 1 LEVEL* 


3A805300 


* 








* RESET DURING AUTO* 


3A805310 


« 








* SCOPE LOOP. * 


3A805320 


* 








* PUSH START TO GO * 


3A805330 


* 








* TO WAIT 1. * 


3A805340 


* 








*****«»****«****«*** 


3A805350 


» 








*«»*»»»*»****»****** 


3A805360 


« 








* WAIT 14 * 


3A805370 


M0D14 


WAIT 




/31 


« INTERRUPT CAUSED * 


3A805380 


* 








* A LEVEL 1 ADDR TO* 


3A805390 


«= 








* BE GENERATED. * 


3A805400 


* 








* PUSH START FOR * 


3A8054I0 


* 








* SCOPE LOOP. • 


3A805420 


* 








*»»******»*#*#«**^** 


3A805430 




LDX 


11 


MOFYC 


MDX ERROR 


3A805440 




STX 


Ll 


M0D14 




3A805450 
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07^F ACOO 0503 



BSC 



MAPIT 



07bl 0000 

07i>2 OCOO 0A60 

075A 7001 

0765 0000 

0756 OCOO 0A5A 

0758 AC+O 075A 



075A 3032 



075B 6580 0A94 
075D 6000 075A 
076F 4C00 0503 



0761 0000 

0762 OCOO 0A62 
0764 7001 



* 
* 
* 
* 
* 
* 
* 
LOOPi 



DC 

XIO 

MDX 




L DISK 

VEC02S1 





VEC02 DC 

XIO L SENSE 
BOSC L M0D15 



M0015 WAIT 
« 

* 
* 



/32 



LDX 


H MOFYD 


STX 


LI M0D15 


BSC 


L MAPIT 



0765 





0000 




VEC03 


DC 


0766 





OCOO 


0A5A 




XIO 


0768 





AC40 


076A 


* 
M0D16 


BOSC 


076A 





3033 




WAIT 



/33 



076B 





6580 


0A95 


LOX 


11 


MOFYE 


076D 





6DO0 


076A 


STX 


LI 


M0D16 


076F 





4C0O 


0503 


BSC 


L 


MAPIT 


0771 





0000 




VEC04 DC 







0772 





OCOO 


0A5A 


XIO 


L 


SENSE 


0774 





6100 




LDX 


I 





0775 





6000 


0A7E 


STX 


LI 


LPCNT 


0777 





6580 


0A9A 


LOX 


11 


MOFYL 


0779 





6000 


06F2 


STX 


LI 


MODll 


0778 





6500 


3011 


LDX 


LI 


/3011 


0770 





6D00 


06F1 


STX 


H 


RUNCK 


077F 





6500 


3012 


LDX 


LI 


/3012 


0761 





6D00 


0702 


STX 


LI 


RUNUK 



w 

INTER 
RESET 
SCOPE 
PUSH 
TO WA 



* LEVEL 

* LEVEL 

****** 

* LEVEL 

* SCOPE 

******* 



************* 

AIT 32 * 

RUPT 2 LEVEL* 

DURING AUTO* 

LOOP. * 

START TO GO * 

IT 1. * 

************* 

* 

2 AUTO * 

RESET LOOP * 

************* 

2 RESET * 
LOOP * 

************ 



L00P3 DC 







* 


XIO 


L 


PLOT 


« 


MDX 




VEC03&1 


* 



******************** 

* WAIT 15 * 

* INTERRUPT CAUSED * 

* A LEVEL 2 ADDR TO* 

* BE GENERATED. * 

* PUSH START FOR - 

* SCOPE LOOP. * 
******************** 
MDX ERROR 



«A ^ ^ ■*■' V- '.'V 'J- -*-- J" -J- -J- o- V vix V' -J' ^V ■H*' *»y 

* WAIT 33 * 

* INTERRUPT 3 LEVEL* 

* RESET DURING AUTO* 

* SCOPE LOOP. * 

* PUSH START TO GO * 

* TO WAIT 1. * 
******************** 

LEVEL 3 AUTO * 
LEVEL RESET LOOP * 

*****************-= sj 

LEVEL 3 RESET * 
SCOPE LOOP * 



******************** 

* WAIT 16 * 

* INTERRUPT CAUSED * 

* A LEVEL 3 ADDR TO* 

* BE GENERATED. * 

* PUSH START FOR * 

* SCOPE LOOP. * 

*******************;,:: 

MDX ERROR 



RESET LOOP COUNT 
MDX CKRUN 
RESTORE HODll 

RESTORE WAIT 11 

RESTORE WAIT 12 



3A805460 

3A805470 

3A8054B0 

3A805490 

3A805500 

3A805510 

3A805520 

3A805530 

3A805540 

3A805550 

3A805560 

3A805570 

3A805580 

3A805590 

3A805600 

3A805610 

3A805620 

3A805630 

3A805640 

3A805650 

3A805660 

3A805670 

3A805680 

3A805690 

3A805700 

3A805710 

3A805720 

3A805730 

3A805740 

3A805750 

3A805760 

3A805770 

3A805780 

3A805790 

3A805800 

3A805810 

3A805820 

3Ae05830 

3A805840 

3A805850 

3A805860 

3A805870 

3A805880 

3A805890 

3A805900 

3A805910 

3A805920 

3A805930 

3A805940 

3A805950 

3A805960 

3A806970 

3A805980 

3A805990 

3A806000 

3A806010 

3A806020 

3A806030 

3A806040 

3A806050 

3A806060 

3A806070 

3A806080 

3A806090 

3A806100 

3A806110 

3A806120 

3A806130 



0783 
0785 
0787 
0789 
078B 
078D 
07aF 
0791 
0793 
0795 
0797 
0799 
079B 
079D 
079F 
07A1 
07A3 
07A5 
07A7 
07A9 
07AB 
07AD 
07AF 
07B1 
07B2 
07B4 



6500 
6D00 
6500 
6D00 
6500 
6D00 
6500 
6D0O 
6500 
6000 
6500 
6D00 
6500 
6000 
6500 
6D00 
C400 
8400 
0400 
9400 
4C50 
OCOO 
C400 
180C 
4C44 
4C40 



3013 
073A 
3014 
074A 
3015 
075A 
3016 
076A 
3017 
07C1 
3018 
07E1 
3019 
07ED 
301A 
07F9 
0A7C 
0A83 
0A7C 
0A84 
082A 
0A68 
0A79 

0914 
06AF 



07B6 4C00 071B 

07B8 0000 

07B9 OCOO 0A6A 

07bB 7001 

07BC 0000 

07BD OCOO 0A5A 

07BF 4C40 07C1 



07C1 3035 



07C2 6580 0A96 

07C4 6D00 07C1 

07C6 4C00 0503 

07C8 0000 

07C9 OCOO 0A5A 

07CB 4C40 07CD 

07CD 301C 



07CE 6500 3011 

07D0 6D00 06F1 

0702 6580 0A91 

0704 6D00 06F2 

0706 6500 0771 



FINSH 



LDX 

STX 

LOX 

STX 

LDX 

STX 

LDX 

STX 

LDX 

STX 

LDX 

STX 

LDX 

STX 

LDX 

STX 

LD 

A 

STO 

S 

BOSC 

XIO 

LD 

SRA 

BOSC 

BOSC 



LI 

LI 

LI 

LI 

LI 

LI 

LI 

LI 

LI 

LI 

LI 

LI 

LI 

LI 

LI 

LI 

L 

L 

L 

L 

L 

L 

L 

L 
L 



GAPIT BSC L 
* 

LOOPS DC 

XIO L 

MDX 

* 

VEC05 DC 

XIO L 



/3013 

M0D13 

/3014 

M0D14 

/3015 

M0D15 

/3016 

M0016 

/3017 

M0D17 

/3018 

M0D18 

/3019 

M0D19 

/301A 

MODIA 

GDCNT 

KOOl 

GDCNT 

KOlO 

SETUP, - 

BITSW 

BITSl 

12 

WAITA£1,E 

CLRIX 

ERROR 



STOP 
VEC05C1 


SENSE 



BOSC L M0D17 



M0D17 WAIT 



/35 





LDX 


11 


MOFYF 




STX 


LI 


M0017 


4: 


BSC 


L 


MAPIT 


CKOOK 


DC 









XIO 


L 


SENSE 


* 


BOSC 


L 


WAITC 


WAITC 


WAIT 




/IC 


* 









RESTORE WAIT 13 

RESTORE WAIT 14 

RESTORE WAIT 15 

RESTORE WAIT 16 

RESTORE WAIT 17 

RESTORE WAIT 18 

RESTORE WAIT 19 

RESTORE WAIT lA 
RESET GOOD COUNT 
ADD 1 TO GOOD COUNT 
STORE GOOD COUNT 
CHK FOR END TEST 
TEST 1 COMPLETE 
SENSE BIT SWITCHES 
LOAD BIT SWITCHES 
CHK FOR WAIT 1 OPT 
RESTORE/GO TO WAIT 1 



ALLOW LOOP 

******************** 

* LEVEL 5 AUTO * 

* LEVEL RESET LOOP * 



LEVEL 5 RESET 



*«*«*»***********S: 


»* 


* 


WAIT 35 


* 


* 


INTERRUPT 5 LEVEL* 


* 


RESET DURING AUTO* 


* 


SCOPE LOOP. 


* 


* 


PUSH START TO GO 


* 


* 


TO WAIT 1. 


* 


***************** i;: 


t* 


*************»*#«!*** 


* 


WAIT 17 


* 


* 


PICKED ADDR BIT 


* 


* 


15. PUSH START 


* 


* 


FOR SCOPE LOOP 


* 


******************; 


?* 


MDX ERROR 





******************** 

* WAIT IC * 
» RUN TRIGGER WILL * 

* NOT SET DURING A * 

* WAIT OPERATION * 
******************** 



LDX 




/3011 


RESTORE WAIT UP 


STX 




RUNCK 




LDX 




MOFYA 


MDX BUSY 


STX 




MODll 


ALLOW ERROR TRAP 


LDX 




VEC04 


RESTORE LEVEL 4 



3A806140 

3A806150 

3A806160 

3A806170 

3A806180 

3A806190 

3A806200 

3A806210 

3A806220 

3A806230 

3A806240 

3A80625O 

3A806260 

3A806270 

3A806280 

3A806290 

3A806300 

3A806310 

3A806320 

3A806330 

3A806340 

3A806350 

3A806360 

3A806370 

3A806380 

3A806390 

3A806400 

3A806410 

3A806420 

3A806430 

3A806440 

3A806450 

3A806460 

3A806470 

3A806480 

3A806490 

3A8065O0 

3A806510 

3A806520 

3A806530 

3A806540 

3A806550 

3A806560 

3A806570 

3A806580 

3A806590 

3A8066O0 

3A806610 

3A806620 

3A806630 

3A806640 

3A806650 

3A806660 

3A806670 

3A806680 

3A806690 

3A8067OO 

3A806710 

3A806720 

3A806730 

3A806740 

3A806750 

3A806760 

3A806770 

3A806780 

3A806790 

3A806800 

3A8068I0 
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6A 



07D8 6000 OOOC 

07DA 'fC'VO 06DC 

07DC 0000 

07DD OCOO 0A5A 

07DF 4C^0 07E1 
07E1 3018 



07E2 6580 0A97 
07E4 6D00 07E1 
07E6 4C00 0716 

07E8 0000 
07E9 OCOO 0A5A 
07EB 4C40 07ED 
07ED 3019 



07EE 6580 0A98 
07F0 6D00 07E0 
07F2 4000 0716 

07F4 0000 
07F5 OCOO 0A5A 
07F7 4CA0 07F9 
07F9 301A 



07FA 6580 0A99 
07FC 6D00 07F9 
07FE ACOO 0716 



0800 
0802 
0804 
0805 
0807 
0809 

oeoB 

08 OD 
OBOE 
080F 
0811 
0813 
0815 



D400 
OCOO 
1000 
9400 
4C18 
4C00 
OCOO 
1000 
6100 
6D00 
40 04 
4000 
3003 



OA80 
0A5A 

0A80 
080B 
06EA 
0A5A 



0A80 
0815 
06EF 



0816 4000 06EA 





STX 


LI 


/OOOC 




BOSO 


L 


BUSY 


* 








BAD12 


DC 









XIO 


L 


SENSE 




BOSC 


L 


M0D18 


H0D18 


WAIT 




/IB 


* 








* 








« 










LDX 


11 


MOFYG 




STX 


LI 


M0D18 




BSO 


L 


FDCYC 


* 








BA014 


DC 









XIO 


L 


SENSE 




BOSC 


L 


M0D19 


M0D19 


WAIT 




/19 


* 








* 








* 










LDX 


11 


MOFYH 




STX 


LI 


M0D19 




BSO 


L 


FDCYC 


* 








NOADR 


DO 









XIO 


L 


SENSE 




BOSC 


L 


MOOIA 


MODIA 


WAIT 




/lA 


* 








# 








* 










LDX 


U 


MOFYJ 




STX 


LI 


MODIA 




BSO 


L 


FDCYC 



ERROR TRAP 



******* *****«»*ili**«* 

* WAIT 18 * 

* DROPPED ADOR BIT * 

* 12. PUSH START * 

* FOR SCOPE LOOP * 

*****«*#;]t«»#*#4^<,:(,^,<, 

MOX ERROR 



SCOPE LOOP 



******««<!#K!«<t*»*#<l»« 

* WAIT 19 * 

* PICKED ADDR BIT * 

* 14. PUSH START * 

* FOR SCOPE LOOP * 

******* **«:ji««:(l:4c*««:tl:ti 

MDX ERROR 



SCOPE LOOP 



*«****«***«*» jji:(i*)>*#^ 

* WAIT lA * 

* NO ADOR TRANSFER * 
» PUSH START FOR * 

* SCOPE LOOP. * 
****«*******<.******* 

MOX ERROR 



SCOPE LOOP 
* 

*********««*♦*:#**<, <t<c«*««*<i«<=*#^,^j{,^^^:j:(,^;(,<,^^:j;^ 

* OP/CODE 0, WAIT 0. NO READOUT OF BSI * 

* OR INTERRUPT ADDRESS. * 

*******«**iji*««i(.,.:(,»#<,:(,»#»:^:(,3»s^,^:^^:>;j,^^^j^^^^,^^^ 
* 



* 

DSWOK 



WAIT3 
* 

* 
* 

* 
» 
* 

* 
* 
* 



STO 

XIO 

NOP 

S 

BSC 

BSO 

XIO 

NOP 

LDX 

STX 

BSC 

BSC 

WAIT 



BSC 



L 
L 

L 
L 
L 

L 

1 
LI 

L 



DSWl 
SENSE 



STORE DSW 
SENSE FOR READY 



DSWl SUBTRACT LAST DSW 

0SWCK£11,£- 

TEST1£2 DSW CHANGED 

SENSE CHECK FOR READY 





OSWl 

WAIT3,E 

TEST1£7 

3 



TEST1E2 



RESET STORED DSW 
NOT READY 
READY 
******************** 

* WAIT 3 * 

* READER NOT READY * 

**********##*»*«**<!* 

READER READY 

*****************#** 

* WAIT 2 * 

* DESIRED NUMBER OF* 

* LOOP PASSES, WHILE* 

* IN SCOPE LOOP. * 

* PUSH START TO * 
» ANOTHER SCOPE * 



3A806820 

3A806830 

3A806840 

3A806850 

3A806860 

3A806870 

3A806880 

3A806890 

3A806900 

3A806910 

3A806920 

3A806930 

3A806940 

3A806950 

3A806960 

3A806970 

3A806980 

3A806990 

3A807000 

3A807010 

3A807020 

3A807030 

3A807040 

3A807050 

3A807060 

3A807070 

3A807080 

3A807090 

3A807100 

3A807110 

3A807120 

3A807130 

3A807140 

3A807150 

3Ae07160 

3A807170 

3A807180 

3A807190 

3A807200 

3A8072X0 

3A807220 

3A807230 

3A807240 

3A807250 

3A807260 

3A807270 

3A807280 

3A807290 

3A807300 

3A807310 

3A807320 

3A807330 

3A807340 

3A807350 

3A807360 

3A807370 

3A807380 

3A807390 

3A807400 

3A807410 

3A807420 

3A807430 

3A807440 

3A807450 

3A807460 

3A807470 

3A807480 

3A807490 











* 








0818 
0819 
081A 
081C 








3002 
6100 
6D00 
4C00 


0A7E 
0716 


* 
WAIT2 

* 


WAIT 
LDX 
STX 
BSC 


1 
LI 

L 


2 



LPCNT 

FDCYC 


081E 
081F 
0821 
0823 
0825 









0000 
OCOO 
OCOO 
OCOO 
4C40 


0A5A 
0A66 
0A5C 
0827 


* 
L00P4 

* 
* 
* 


OC 
XIO 
XIO 
XIO 

BOSC 


L 
L 
L 
L 




SENSE 

CONSL 

SENPT 

M0D20 


0827 
0828 






3034 
4C00 


0503 


* 
* 
* 
M0D20 

* 
* 


WAIT 
BSC 


L 


/34 
MAPIT 



* LOOP PASS. * 

*****»*«*4«**«***»*:« 

STOP SCOPE LOOP 

RESET LOOP COUNT 
CONTINUE TEST 

* LEVEL 4 AUTO * 

* LEVEL RESET LOOP * 



* WAIT 34 * 

* INTERRUPT 4 LEVEL* 

* RESET DURING AUTO* 

* SCOPE LOOP. * 

* PUSH START TO GO * 

* TO WAIT 1. * 
******************** 



****»***«<= <:**:j,*j),,>*:j,:^:j^^<:;^^;^**,,^^^^^^^^^^^^^^ 

* INTERRUPT VECTOR SETUP. * 



RESET GOOD PASS CNT 



082A 


6100 




SETUP 


LDX 


1 





082B 


6000 


0A7C 




STX 


LI 


GOONT 


082D 


6500 


0898 




LDX 


LI 


INTOO 


082F 


6D00 


0008 




STX 


LI 


/0008 


0831 


6500 


092E 




LDX 


LI 


INTOl 


0833 


6000 


0009 




STX 


LI 


/0009 


0835 


6500 


0943 




LDX 


LI 


INT02 


0837 


6D00 


OOOA 




STX 


LI 


/OOOA 


0839 


6500 


0958 




LDX 


LI 


INT03 


083B 


6000 


OOOB 




STX 


LI 


/OOOB 


083D 


6500 


08B3 




LDX 


LI 


INT04 


083F 


6D00 


OOOC 




STX 


LI 


/OOOC 


0841 


6500 


0960 




LDX 


LI 


INT05 


0843 


6DO0 


OOOD 




STX 


LI 


/OOOD 


0845 


6500 


0982 




LDX 


LI 


ADR12 


0847 


6D00 


0000 


# 


STX 


LI 


/OOOO 


0849 


6100 




RESET 


LDX 


1 





084A 


6200 






LDX 


2 





084B 


6300 




* 
BUZY 


LDX 


3 





0840 


OCOO 


0A5A 


XIO 


L 


SENSE 


084E 


1801 






SRA 




1 


084F 


4004 


0840 




BSC 


L 


BUZY.E 


0851 


OCOO 


0A68 




XIO 


L 


BITSW 


0853 


0400 


0A79 




LO 


L 


BITSl 


0855 


1800 






SRA 




12 


0856 


4004 


080B 


* 
START 


BSC 


L 


CNTOK,E 


0858 


6780 


0A7F 


LDX 


13 


DELAY 


085A 


0000 


0A5A 




XIO 


L 


SENSE 


0850 


4004 


0880 




BSC 


L 


CKROY.E 


085E 


OCOO 


0A72 


♦ 
LESSl 


XIO 


L 


RESTR 


0860 


73FF 




MDX 


3 


-1 


0861 


70FE 






MDX 




LESSl 



SENSE DSW 

SET UP TO CHK BIT 14 
CHECK FOR BUSY 
SENSE BIT SWITCHES 
LOAD BIT SWITCHES 
CHK FOR WAIT 1 OPT 
SET UP FOR RESTORE 

SET UP DELAY 
SENSE FOR READY 
CHECH FOR READY 



* * 

* WAIT 21 * 

* * 

* NO INTERRUPTS WERE GENERATED WITHIN 500 * 



3A807500 

3A807510 

3A807520 

3A807530 

3A807540 

3A807550 

3A807560 

3A807570 

3A807580 

3A807&90 

3A807600 

3A807610 

3A807620 

3A807630 

3A807640 

3A807650 

3A807660 

3A807670 

3A807680 

3A807690 

3A807700 

3A807710 

3A807720 

3A807730 

3A807740 

3A807750 

3A807760 

3A807770 

3A807780 

3A807790 

3A807800 

3A807810 

3A807820 

3A807830 

3A807840 

3A807850 

3A807860 

3A807870 

3A807880 

3A807890 

3A807900 

3A807910 

3A807920 

3A807930 

3A807940 

3A807950 

3A807960 

3A807970 

3A807980 

3A807990 

3A808000 

3A808010 

3A808020 

3A808030 

3A808040 

3A808050 

3A808060 

3A808070 

3A808080 

3A808090 

3A808100 

3A808110 

3A808120 

3A808130 

3A808140 

3A80815O 

3A808160 

1^808170 
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-ART NO. 
PAGE 



i;19U68 
7 A 



0862 3021 



0863 

0864 
0866 
0868 
086A 
086C 
086E 
0870 
0872 
08 74 
0876 



6100 
6000 
6500 
6000 
4C00 
C400 
8400 
D400 
9400 
4010 
70D5 



0A7C 
1000 
0862 
09FE 
0A7E 
0A83 
0A7E 
0A87 
0877 



0877 C400 0A7D 



0879 3002 



087A 
087B 
087D 
087F 

0880 
0882 
0884 
0886 
0888 
088A 
088C 
088D 
088F 
0891 



6200 

6E00 0A7E 
6E00 0A7D 
70CC 



0400 
OCOO 
9400 
4C18 
4C00 
OCOO 
6100 
6D00 
4C04 
4C00 



0A80 
0A5A 
0A80 
088A 
085A 
0A5A 

0A80 
0893 
085E 



0893 3003 

0894 OCOO 0A5A 



* MS 

* Hfl 

» IN 

« PU 

ft* 

* 

M0D2 

* 



EC. AFTER A READS WAS GIVEN. THIS SHOULD* 

VE BEEN ENOUGH TIME TO RECEIVE 80 COLUMN* 

TERRUPTS AND AN END OP INTERRUPT. * 

SH START FOR SCOPE LOOP. * 

1 WAIT /21 NO LEV. OR 4 INTRPT 



SCOPE LOOP 



TO USE SCOPE LOOP, PRESS START. THIS WILL * 

FEED CARDS AT A 2 CARD/SEC RATE WITH t 

A HALT AFTER 100 CARDS. ^. 

IF AN INTERRUPT IS GENERATED DURING THIS * 

SCOPE LOOP, A WAIT WILL IDENTIFY IT. « 

MAKE SURE THERF IS A SUFFICIENT AMOUNT OF * 

BLANK CARDS IN READER TO ALLOW FURTHER « 

CHECKING. * 

* 



CARDS 



RETRN 



TOTAL 



* 
CHECK 



LDX 

STX 

LDX 

STX 

BSC 

LD 

A 

STO 

S 

BSC 

MOX 

LD 



1 
LI 
LI 
LI 
L 
L 
L 
L 
L 
L 





GDCNT 

/lOOO 

M0D21 

CNTIT 

LPCNT 

KOOl 

LPCNT 

KlOO 

CHECK, - 

BUZY 



L CLCNT 



RESET GOOD PASS CNTR 

NOP 

ALLOW LOOP 

CHK COUNT OPTION 

LOOP CARD COUNTER 

ADD 1 

SUBTRACT 100 
100 CARDS FED 
CHECK FOR BUSY 

LOAD COLUMN COUNT 



2 
L2 LPCNT 
L2 CLCNT 
BUZY 



* * 

* WAIT 2 * 

* ^ 

* NORMAL WAIT AFTER DESIRED NUMBER OF CARDS * 

* HAVE BEEN READ. PRESS START TO READ THE « 

* NUMBER OF BLANK CARDS DESIRED * 

* 

WAIT 
* 

LDX 

STX 

STX 

MDX 

STO 

XIO 

S 

BSC 

BSC 

XIO 

LDX 

STX 

BSC 

BSC 

* 

* 

* 
* 

NOROY WAIT 
XIO 



CKRDY 



L 
L 
L 
L 
L 
L 

1 
LI 
L 



DSWl 

SENSE 

DSWl 

CKRDYGIO.S- 

STARTG2 

SENSE 



DSWl 

NORDY,E 

STARTe6 



3 
SENSE 



100 CARDS FED 



RESET LOOP COUNT 
RESET COLUMN COUNT 
RESTART LOOP CHECK 

STORE DSW 
SENSE FOR READY 
SUBTRACT LAST DSW 

DSW CHANGED 
RESET DSW 

RESET STORED DSW 
NOT READY 
READY 

ft******************* 

* WAIT 3 * 

* READER NOT READY * 

**»***»*»»<.-*«***«**« 

READER NOT READY 
SENSE e RESET 



3A808180 

3A808190 

3A808200 

3A808210 

3A808220 

3A808230 

3A808240 

3A808250 

3A808260 

3A808270 

3A808280 

3A808290 

3A808300 

3A808310 

3A808320 

3A808330 

3A808340 

3A808350 

3A808360 

3A808370 

3A808380 

3A808390 

3A808400 

3A808410 

3A808420 

3A808430 

3A808440 

3A808450 

3A808460 

3A808470 

3A808480 

3A808490 

3A808500 

3A808510 

3A808520 

3A808530 

3A808540 

3A808550 

3A808560 

3A808570 

3A808580 

3A808590 

3A808600 

3A808610 

3A808620 

3A808630 

3A808640 

3A808650 

3A808660 

3A808670 

3A808680 

3A808690 

3A808700 

3A808710 

3A808720 

3A808730 

3A808740 

3A808750 

3A808760 

3A808770 

3A808780 

3A808790 

3A808800 

3A808810 

3A808820 

3A808830 

3A808840 

3A808850 



0896 4C00 085A 

0898 0000 

0899 OCOO 0A5A 
089B 7401 0A7D 
089D 6500 08B3 
089F 6D00 OOOC 
08A1 6680 0A9C 
08A3 6ABE 
08A4 4C40 08A6 

08A6 OCOO 0A76 

08A8 4C00 0«60 



INTOO 



COLGO 



BSC 

DC 

XIO 

MDX 

LDX 

STX 

LDX 

STX 

BOSC 

XIO 
BSC 



L 
L 

LI 
LI 
12 
2 
L 

L 

L 



STARTS2 



SENSE 

CLCNT, £1 

INT04 

/OOOC 

MDFY3 

M0021 

COLGO 



READER READY 



ADD 1 TO COLUMN 
RESTORE LEVEL 4 

MDX WAIT 22 
CHECK FOR LEVEL 
RESET LEVEL 



CNT 
VEC. 



READ 
LtSSl 



* 



V * * « * * v .i ^! !> * * A s „ -f if * !,! a * ;s ^ 



WAIT 22 



08AA 3022 



AT LEAST 1 COLUMN INTERRUPT W 
AND NO END OP GENERATED FOR L 
THE NUMBER OF COLUMNS READ IS 
IN THE A REG. 
PUSH START FOR SCOPE LOOP. 

MOD22 WAIT /22 NO LEV 

* SCOPE LOOP 



AS 


GENERATE 


AST CARD. 


DISPLAYED 


**! 


****;);*;Sp;; 


EL 


4 RECItV 


**>, 


******** 



- 



ED 



08AB 





6500 


0001 


LDX 


LI 


/OOOl 


08AD 





6D00 


08AA 


STX 


LI 


M0022 


08AF 





6100 




LDX 


1 





08BO 





6D00 


0A70 


STX 


LI 


CLCNT 


08B2 





70B0 




MDX 




M0D2iei 


08B3 





0000 




INT04 DC 







08B4 





OCOO 


OA5 4 


XIO 




SENSE 


08B6 





7401 


0A7C 


MDX 




GDCNT, £1 


08B8 





6500 


3021 


LDX 


LI 


/3021 


08BA 





6000 


0862 


STX 


LI 


M0D21 


08BC 





6500 


3022 


LDX 


LI 


/3022 


08BE 





6000 


08AA 


STX 


LI 


M0D22 


08C0 





C400 


0A7D 


LD 




CLCNT 


08C2 





9400 


0A86 


S 




K080 


08C4 





4C58 


080B 


BOSC 




CNTOK,S- 


08C6 





4C68 


0922 


BOSC 




M0D24,Zfi 


08C8 





4C40 


08CA 


BOSC 




CLERR 


08CA 





C400 


0A7D 


CLERR LD 




CLCNT 



08CC 3023 
08CD 6100 
08CE 6D00 0A7D 
0800 6680 0A9D 
08D2 6E00 08CC 
08D4 4C40 0863 

08D6 6100 
08D7 6D00 0A7D 
0809 4C00 0860 

08DB 6500 3021 
.08DD 6D00 0862 



«***#*******St****#****** 

* WAIT 

* 

* MORE THAN 80 COLUMN IN 

* WHEN END OP INTERRUPT 

* OF COLUMN INTERRUPTS I 

* PUSH START FOR SCOPE L 
**♦#♦«♦»*«******«******* 
M0D23 WAIT /23 

LDX 1 

LI CLCNT 

12 MDFY4 

L2 M0D23 



STX 
LDX 
STX 
BOSC 



NOP 

ALLOW LOOP 

RESET COLUMN COUiMT 

BRANCH TO LOOP 



ADD 1 TO GOOD PASS 

RESTORE WAIT 21 

RESTORE WAIT 22 
LOAD COLUMN COUNT 
CHECK FOR 80 COLUMNS 
CHECKED OK 
BRANCH LESS THAN 80 

LOAD COLUMN COUNT 

*********** t;,;S^^-I^;jJ^^^ 

23 * 

* 
TERRUPTS RECEIVED * 
WAS GENERATED. NUMBER* 
S DISPLAYED IN A REG* 
OOP. * 

***********lj:-;^;J;(.^,^^^4 

MORE THAN 80 COLUMNS 
RESET COLUMN COUNT 



CARDS 



HOPIT LDX 
STX 
BSC 

* 

CNTOK LDX 
STX 



1 
LI CLCNT 
L LESSl 

LI /3021 
LI M0021 



ALLOW LOOP 
BRANCH TO LOOP 



RESET COLUMN COUNT 



RESTORE WAIT 21 



3AS0836O 

3A80ad70 

3A803380 

3A808890 

3A808900 

3A808910 

3A808920 

3A808?30 

3A803940 

3A806^50 

3A80b960 

?A80 = 9'"1 

JA80a iaO 

3A808990 

3A809000 

3A80901(' 

3A809020 

3A809030 

3A809040 

3A809050 

3A809060 

3A809070 

3A809080 

3A809090 

3A809100 

3A809110 

3A809120 

3A809130 

3A809140 

3A809150 

3A809160 

3A8O9170 

3A809180 

3A809190 

3A809200 

3A809210 

3A809220 

3A809230 

3A809240 

3A809250 

3A809260 

3A809270 

3A8092B0 

3A809290 

3A809300 

3A809310 

3A809320 

3A809330 

3A809 340 

3A809350 

3A809360 

3A809370 

3A809380 

3A809390 

3A809400 

3A809410 

3A809420 

3A809430 

3A809440 

3A809450 

3A809460 

3A809470 

3A809480 

3A809490 

3A809500 

3A809510 

3A809520 

3A809530 
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080F 





6500 


3022 


LOX 




/3022 


08E1 





6D0O 


08AA 


STX 




MOD22 


08E3 





6500 


3023 


LOX 




/3023 


08E5 





6D00 


08CC 


STX 




MOD23 


08E7 





6500 


3024 


LOX 




/3024 


08E9 





6000 


09 2A 


STX 




M0D24E2 


08EB 





6500 


3025 


LDX 




/3025 


08ED 





6D00 


0939 


STX 




M0025 


08EF 





6500 


3026 


LOX 




/3026 


08F1 





6D00 


094E 


STX 




M0D26 


08F3 





6500 


3027 


LDX 




/3027 


08F5 





6D00 


0963 


STX 




M0D27 


08F7 





6500 


3028 


LOX 




/3028 


08F9 





6D00 


0978 


STX 




MOD28 


08FB 





6500 


3029 


LDX 




/3029 


08FD 





6D00 


0980 


STX 




M0D29 


08FF 





C400 


0A7C 


LD 




GDCNT 


0901 





9400 


0A84 


S 




KOlO 


0903 





4C10 


0913 


BSC 




WAITA, - 


0905 





6100 




LDX 


1 





0906 





6D00 


0A7D 


STX 


LI 


CLCNT 


0908 





6D00 


0A7E 


STX 


LI 


LPCNT 


090 A 





OCOO 


0A68 


XIO 




BITSW 


090C 





C400 


0A79 


LD 




BITSl 


09 OE 





180C 




SRA 




12 


090F 





AC04 


0914 


BSC 




WAITA£1,E 


0911 





4C00 


0820 


BSC 
« 
* 
* 
WAITA WAIT 




SETUP£3 


0913 





3004 






4 



RESTORE WAIT 22 

RESTORE WAIT 23 

RESTORE WAIT 24 

RESTORE WAIT 25 

RESTORE WAIT 26 

RESTORE WAIT 27 

RESTORE WAIT 28 

RESTORE WAIT 29 
LOAD CARD COUNT 
SUBTRACT 10 
CHK NUMBER OF PASSES 

RESET COLUMN COUNT 
RESET LOOP CARD CNT 
SENSE BIT SWITCHES 
LOAD BIT SWITCHES 
CHK FOR WAIT 1 OPT 
RESTORE/GO TO WAIT 1 
NOT 10 PASSES . 

« WAIT 4 * 

* DEVICE TESTED, * 

* RAN SUCCESSFUL. * 

* * 

* RERUN « 

* * 

* TO RERUN PROGRAM PRESS START. * 

* * 



0914 
0915 
0917 
0919 
091B 
091D 
09 IE 
0920 



6100 
6D00 
6D00 
OCOO 
C400 
180C 
4C04 
4C00 



0A70 
0A7C 
0A68 
0A79 

0503 
06AF 



0922 C400 0A7D 



LDX 

STX 

STX 

XIO 

LD 

SRA 

M0D12 BSC 
BSC 

* 

M0D24 LD 



1 
LI CLCNT 
LI GDCNT 
L BITSW 
L BITSl 

12 
L MAPIT,E 
L CLRIX 



CLCNT 



RESET COLUMN COUNT 
RESET CARD COUNT 



RERUN PROGRAM 



LOAD COLUMN COUNT 



*«****«***#**«*«**««»«#*«* *«»*****«*«*«*>!.***« 



WAIT 24 



* 
* 
* 

* 

* 



* 

LESS THAN 80 COLUMN INTERRUPTS RECEIVED » 
WHEN END OP INTERRUPT WAS GENERATED. NUMBER* 
OF COLUMN INTERRUPTS IS DISPLAYED IN A REG* 
PUSH START FOR SCOPE LOOP. * 



0924 3024 



0925 
0926 
0928 
092A 
D92C 



6100 

6D00 0A7D 
6680 0A9E 
6E00 0922 
4C00 0863 



WAIT 

LOX 
STX 
LDX 
STX 
BSC 



/24 



092E 0000 
092F OCOO 0A5A 



INTOl DC 
XIO 



1 

LI CLCNT 

12 MDFY5 

L2 M0D24 

L CARDS 



L SENSE 



RESET COLUMN COUNT 



ALLOW LOOP 
BRANCH TO LOOP 



INTERRUPT 1 



3A809540 
3A809550 
3A809560 
3A809570 
3A809580 
3A809590 
3A809600 
3A809610 
3A809620 
3A809630 
3A809640 
3A809650 
3A809660 
3A809670 
3A809680 
3A809690 
3A809700 
3A809710 
3A809 720 
3A809730 
3A809740 
3A809750 
3A809760 
3A809770 
3A809780 
3A809790 
3A809800 
3A809810 
3A809820 
3A809830 
3Ae09840 
3A809850 
3A809 860 
3A809870 
3A809880 
3A809890 
3A809900 
3A809910 
3A809920 
3A809930 
3A809940 
3A809950 
3A809960 
3A809970 
3A8099eO 
3A809990 
3A810OOO 
3A810010 
3A810020 
3A810030 
3A810040 
3A810050 
3A810060 
3A810070 
3A810080 
3A810090 
3A810100 
3A810110 
3A810120 
3A810130 
3A810140 
3A810150 
3A810160 
3A810170 
3A810180 
3A810190 
3A810200 
3A810210 



0931 





C400 


0A7D 




LD L CLCNT L 


0933 





6600 


092E 




LDX L2 INTOl 


0935 





6E00 


OOOC 




STX L2 /OOOC 


0937 





4C40 


0939 




BOSC L M0D25 










3^ 










* 

* 


WAIT 25 



LOAD COLUMN COUNT 



0939 3025 

093A 6100 
093B 6D00 0A70 
0930 6680 0A9F 
093F 6E00 0939 
0941 4C00 0863 



0943 
0944 
0946 
0948 
094 A 
094C 



0000 

OCOO 0A5A 
C400 0A7D 
6600 0943 
6EO0 OOOC 
4C40 094E 



094E 3026 



094 F 
0950 
0952 
0954 
0956 

0958 
0959 
095B 
09 5D 
095F 
0961 



6100 

6DO0 0A70 
6680 OAAO 
6E00 094E 
4CO0 0863 

0000 

OCOO 0A5A 
C400 0A7D 
6600 0958 
6EO0 OOOC 
4C40 0963 



0963 3027 



0964 
0965 
0967 
0969 
096B 



6100 
6DO0 0A70 
6680 OAAl 
6E00 0963 
4C00 0863 



0960 0000 
096E OCOO 0A5A 
0970 C400 0A7D 
0972 6600 096D 



* INTERRUPT GENERATED, CAUSED A LEVEL 1 

* ADDRESS TO BE GENERATED. 

* PUSH START FOR SCOPE LOOP. 



* 
* 
* 
* 



M0D25 WAIT 
* 

LDX 
STX 
LOX 
STX 
BSC 
* 

INT02 DC 
XIO 
LD 
LOX 
STX 
BOSC 



/25 

1 
LI CLCNT 
12 MDFY6 
L2 M0025 
L CARDS 




L SENSE 
L CLCNT 
L2 INT02 
L2 /OOOC 
L MOD26 



LEV PICKED BIT 15 

RESET COLUMN COUNT 

ALLOW LOOP 
ALLOW LOOP 
BRANCH TO LOOP 

INTERRUPT 2 

LOAD COLUMN COUNT 



**♦*******#*****#«»«# #:(,:^;^,»,^,;^^^;^;^^,^^^^,^^^^ 



WAIT 26 



* 
* 
* 

* INTERRUPT GENERATED, CAUSED A LEVEL 2 

* ADDRESS TO BE GENERATED. 

* PUSH START FOR SCOPE LOOP. 



* 

* 
* 

* 

* 



M0D26 WAIT 

* 

LOX 
STX 
LDX 
STX 
BSC 

INT03 DC 
XIO 
LD 
LDX 
STX 
BOSC 



/26 

1 
LI CLCNT 
12 M0FY7 
L2 M0D26 
L CARDS 



L 
L 
L2 





SENSE 
CLCNT 
INT03 



LEV PICKED BIT 14 

RESET COLUMN COUNT 

ALLOW LOOP 

BRANCH TO LOOP 

INTERRUPT 3 

LOAD COLUMN COUNT 



L2 /OOOC 
MOD27 



*«*****«*«»««««#«*^*«:^*:j^:^#:»:^»:»<,<,^,,,^^^^^^,^^ 



WAIT 27 



* 
* 
* 

* INTERRUPT GENERATED, CAUSED A LEVEL 3 

* ADDRESS TO BE GENERATED. 

* PUSH START FOR SCOPE LOOP. 



* 
* 
* 
* 



MOD27 WAIT 

* 

LDX 
STX 
LOX 
STX 
BSC 

INT05 DC 
XIO 
LD 
LDX 



/27 

1 
LI CLCNT 
12 MDFY8 
L2 M0D27 
L CARDS 



L 
L 
L2 





SENSE 
CLCNT 
INT05 



LEV PICKED 14615 
RESET COLUMN COUNT 
ALLOW LOOP 
BRANCH TO LOOP 
INTERRUPT 5 
LOAD COLUMN COUNT 



3A810220 

3A810230 

3A810240 

3A810250 

3A810260 

3A810270 

3A810280 

3A810290 

3A810300 

3A810310 

3A810320 

3A810330 

3A810340 

3A810350 

3A810360 

3A810370 

3A810380 

3A810390 

3A810400 

3A810410 

3A810420 

3A810430 

3A810440 

3A810450 

3Aei0460 

3A810470 

3A810480 

3A810490 

3A810500 

3A810510 

3A810520 

3A810530 

3A810540 

3A810550 

3A810560 

3A810570 

3A810580 

3A810590 

3A810600 

3A810610 

3A810620 

3A810630 

3Aei0640 

3A610650 

3A810660 

3A810670 

3A810680 

3A810690 

3A810700 

3A810710 

3A810720 

3A810730 

3A810740 

3A810750 

3A810760 

3A810770 

3A810780 

3A810790 

3A810800 

3A810810 

3A810820 

3A810830 

3A810840 

3A810850 

3A810860 

3A810870 

3A810880 

3A810890 



DATE 
EC NO. 



01MAY66 
415490B 



15N0V66 
419605 



15JUN67 
420317 



15FEB68 
420403 



PROG ID 
PAGE 
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8 



DATE 

EC NO. 



01MAY66 
415490B 



15N0V66 
419605 



15JUN67 
420317 



15FEB68 
420403 



PROG ID 
PAGE 



03A8-0 
8A 
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0974 6E0O OOOC 
0976 4C40 0978 



0973 3028 



0979 





6100 




097A 





6D00 


0A7D 


097C 





6680 


0AA2 


097E 





6E00 


0978 


0980 





4C00 


0863 


0982 





OOOO 




0983 





OCOO 


0A5A 


0985 





C400 


0A7D 


0987 





6600 


0982 


0989 





6E00 


OOOC 



STX L2 /OOOC 
80SC L M0D28 

********************* «!li>|c*«»**j>*i:i>i;*!;t*«;;;y;**:i:s;j<;# 

* WAIT 28 * 

* * 

* INTERRUPT GENERATED, CAUSED A LEVEL 5 * 

* ADDRESS TO BE GENERATED. * 
« PUSH START FOR SCOPE LOOP. * 

M0028 WAIT /28 
* 

LDX 1 
STX LI CLCNT 



LDX 12 MDFY9 
STX L2 M0D28 
BSC L CARDS 



LEV PICKED 13&15 
RESET COLUMN COUNT 
ALLOW LOOP 
BRANCH TO LOOP 



0986 4C40 0980 



098D 3029 



ADR12 DC 

XIO L SENSE 

LO L CLCNT 

LDX L2 A0R12 

STX L2 /OOOC 

BOSC L M0D29 

* * 

* WAIT 29 * 

* * 

* BIT 12 WAS DROPPED WHEN INTERRUPT LEVEL * 

* WAS GENERATED. * 

* PUSH START FOR SCOPE LOOP. * 

M0D29 WAIT /29 INT DROPPED BIT 12 



RESET COLUMN COUNT 
ALLOW LOOP 
BRANCH TO LOOP 



098E 





6100 






LDX 


1 





098F 





6000 


0A7D 




STX 


LI 


CLCNT 


0991 





6680 


0A9B 




LDX 


12 


MDFY2 


0993 





6E00 


098D 




STX 


L2 


M0D29 


0995 





4C00 


0863 


^ 


BSC 


L 


CARDS 


0997 





4C00 


0806 


JUMP 


BSC 


L 


HOP IT 


0999 





OCOO 


0A68 


CNTCK 


XIO 


L 


BITSW 


099B 





C400 


0A79 




LD 


L 


BITSl 


0990 





4C04 


09B0 




BSC 


L 


KNTOl, E 


099F 





1801 






SRA 




1 


09A0 





4C04 


09B8 




BSC 


L 


KNT02,E 


09A2 





1801 






SRA 




1 


09A3 





4C04 


09C0 




BSC 


L 


KNT03,E 


09A5 





1801 






SRA 




1 


09A6 





4C04 


09C8 




BSC 


L 


KNT04,E 


09A8 





6500 


0A87 




LDX 


H 


KlOO 


09 AA 





6D00 


06FF 




STX 


LI 


NUMBRSl 


09 AC 





0500 


0724 




STO 


LI 


NUMCK61 


09 AE 





4C00 


09D0 


3^ 


BSC 


L 


CKOVR 


09B0 





6500 


0A84 


KNTOl 


LDX 


LI 


KOlO 


09B2 





6D00 


06FF 




STX 


LI 


NUMBR&1 


09 B4 





D500 


0724 




STO 


LI 


NUMCKtl 


09B6 





4C00 


09D0 


# 


BSC 


L 


CKOVR 


09B8 





6500 


0A85 


KNT02 


LDX 


LI 


K050 


09BA 





6D00 


06FF 




STX 


LI 


NUMBRGl 


09BC 





D500 


0724 




STO 


LI 


NUMCK61 


09BE 





4C00 


0900 




BSC 


L 


CKOVR 



READ BIT SWITCHES 
LOAD BIT SWITCHES 
SELECT COUNT OF 10 
CHK COUNT OF 50 
SELECT COUNT OF 50 
CHK COUNT OF 250 
SELECT COUNT OF 250 
CHK COUNT OF 25000 
SEL COUNT OF 25000 

SET UP CNT OF 100 
SET UP LOOP COUNT 



SET UP CNT OF 10 
SET UP LOOP COUNT 



SET UP CNT OF 50 
SET UP LOOP COUNT 



09C0 6500 0A88 



KNT03 LDX LI K250 



DATE 
EC NO. 



01MAY66 
415490B 



15N0V66 
419605 



15JUN67 
420317 



15FEB68 
420403 



3A810900 
3A810910 
3A810920 
3A810930 
3A810940 
3A810950 
3A810960 
3A810970 
3A810980 
3A810990 
3A811000 
3A811010 
3A811020 
3A811030 
3A8U040 
3A811050 
3A811060 
3A811070 
3A811080 
3A811090 
3A8I1100 
3A811110 
3A811120 
3A811130 
3A811140 
3A811150 
3A811160 
3A811170 
3A81H80 
3A811190 
3A811200 
3A811210 
3A811220 
3A811230 
3A811240 
3A811250 
3A811260 
3A&11270 
3A811280 
3A811290 
3A811300 
3A811310 
3A811320 
3A811330 
3A811340 
3A811350 
3A811360 
3A811370 
3A811380 
3A811390 
3A811400 
3A811410 
3A8H420 
3A811430 
3A811440 
3A811450 
3A811460 
3A811470 
3A811480 
3A811490 
3A811500 
3A811510 
3A811520 
3A811530 
3A811540 
3A811550 
3A811560 
3A811570 



PROG ID 
PAGE 



03A8-0 
9 



DATE 
EC NO. 



09C2 6D00 06FF 




STX 


LI 


NUMBRSl 


SET 


UP CNT OF 250 


3A811580 




09C4 D500 0724 




STO 


LI 


NUMCKCl 


SET 


UP LOOP COUNT 


3Aeil»90 




09C6 4C00 09D0 


« 


BSC 


L 


CKOVR 






3A811600 
3A811610 




09C8 6500 0A89 


KNT04 


LDX 


LI 


KMAX 






3A811620 




09CA 6D00 06FF 




STX 


LI 


NUMBRCl 


SET 


UP CNT OF 25000 


3A811630 




09CC D500 0724 




STO 


LI 


NUMCK£1 


SET 


UP LOOP COUNT 


3A811640 




09CE 4C00 0900 


« 


BSC 


L 


CKOVR 






3A8U650 
3A811660 




09D0 OCOO 0A68 


CKOVR 


XIO 


L 


BITSW 


READ BIT SWITCHES 


3A811670 




0902 C400 0A79 




LD 


L 


BITSl 


LOAD BIT SWITCHES 


3A811680 




09D4 1804 




SRA 




4 


DELAY CHANGE 


3A811690 




0905 4C04 09E6 




BSC 


L 


NODLY, E 


NO 1 


DELAY SELECTED 


3A811700 




09D7 1801 




SRA 




1 


CHECK FOR DELAY 


3A811710 




0908 4C04 09EC 




BSC 


L 


DLYOl, E 


SELECTED DELAY 


3A811720 




09DA 1801 




SRA 




1 


CHECK FOR DELAY 


3A811730 




09DB 4C04 09F2 




BSC 


L 


0LY02,E 


SELECTED DELAY 


3A8U740 




09UD 1801 




SRA 




1 


CHECK FOR DELAY 


3A811750 




090E 4C04 09F8 




BSC 


L 


DLY03,E 


SELECTED DELAY 


3A811760 




09E0 6500 0A7F 




LDX 


LI 


DELAY 


SET 


DELAY FOR .5 SEC 


3A811770 




09E2 6000 06E9 




STX 


LI 


TEST1&1 


SET 


UP DELAY 


3A811780 




09E4 4C00 06DC 


* 


BSC 


L 


BUSY 






3A811790 
3A811800 




09E6 6500 0A82 


NODLY 


LDX 


LI 


KOOO 


LOAD ZERO 


3A811810 




09E8 6000 06E9 




STX 


LI 


TESTIGI 


SET 


UP NO DELAY 


3A811820 




09EA 4C00 06DC 


* 


BSC 


L 


BUSY 






3A811830 
3A811840 




09EC 6500 0A8A 


DLYOl 


LDX 


LI 


TIMEl 






3A811850 




09EE 6000 06E9 




STX 


LI 


TESTl&l 


SET 


UP DELAY 


3A811860 




09F0 4C00 06DC 


« 


BSC 


L 


BUSY 






3A811870 
3A8H880 




09F2 6500 0A8B 


0LY02 


LDX 


LI 


TIHE2 






3A811890 




09F4 6000 06E9 




STX 


LI 


TESTiei 


SET 


UP DELAY 


3A811900 




09F6 4C00 06DC 


« 


BSC 


L 


BUSY 






3A811910 
3A811920 




09F8 6500 0A8C 


DLY03 


LDX 


LI 


TIME3 






3A811930 




09FA 6000 06E9 




STX 


LI 


TESTUl 


SET 


UP DELAY 


3A811940 




09FC 4C00 06DC 


* 


BSC 


L 


BUSY 






3A811950 
3A811960 




09FE OCOO 0A68 


CNTIT 


XIO 


L 


BITSW 


READ BIT SWITCHES 


3A811970 




OAOO C400 0A79 




LD 


L 


BITSl 


LOAD BIT SWITCHES 


3A811980 




0A02 4C04 0A13 




BSC 


L 


CNTOl, E 


SEL 


CARD CNT OF 10 


3A8U990 




0A04 1801 




SRA 




1 


CHK 


CARD CNT OF 50 


3A812000 




0A05 4C04 0A19 




BSC 


L 


CNT02,E 


SEL 


CARD CNT OF 50 


3A812010 




0A07 1801 




SRA 




1 


CHK 


CARD CNT OF 250 


3A812020 




0A08 4C04 OAIF 




BSC 


L 


CNT03,E 


SEL 


CARD CNT OF 250 


3A812030 




OAOA 1801 




SRA 




1 


CHK 


CARD CNT OF 25K 


3A812040 




OAOB 4C04 OA25 




BSC 


L 


CNT04,E 


SEL 


CARD CNT OF 25K 


3A812050 




OAOD 6500 0A84 




LDX 


LI 


KOlO 






3A812060 




OAOF 6D00 0873 




STX 


LI 


TOTALSl 


SET 


UP CNT OF 10 


3A812070 




OAll 4C00 0A2B 


* 


BSC 


L 


ENDCK 






3A812080 
3A8I2090 




0A13 6500 0A84 


CNTOl 


LDX 


LI 


KOlO 






3A812X00 




0A15 6000 0873 




STX 


LI 


TOTALCl 


SET 


UP CNT OF 10 


3A812110 




0A17 4C00 0A2B 


« 


BSC 


L 


ENDCK 






3A812120 
3A812130 




0A19 6500 0A85 


CNT02 


LDX 


LI 


K050 






3A812140 




OAIB 6D00 0873 




STX 


LI 


TOTALEl 


SET 


UP CNT OF 50 


3A812150 




OAID 4C00 0A2B 


* 


BSC 


L 


ENDCK 






3A812160 
3A812170 




OAIF 6500 0A88 


CNT03 


LDX 


LI 


K250 






3A812180 




0A21 6000 0873 




STX 


LI 


TOTALCl 


SET 


UP CNT OF 250 


3A812190 




0A23 4C00 0A2B 


« 


BSC 


L 


ENDCK 






3A812200 
3A812210 




0A25 6500 0A89 


CNT04 


LDX 


LI 


KMAX 






3A812220 




0A27 6D00 0873 




STX 


LI 


T0TAL61 


SET 


UP CNT OF 25000 


3A812230 




0A29 4C00 0A2B 


* 


BSC 


L 


ENDCK 






3A812240 
3A812250 




01MAY66 15N0V66 


15JUN67 


15FEB68 






PROG ID 


03A8-0 


415490B 419605 


420317 


420403 
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0A2B OCOO 


0A68 


ENOCK XIO 


L BITSH 


READ BIT SWITCHES 




0A2D C400 
0A2F 1804 


0A79 


LO 
SRA 


L BITSl 

4 


LOAD BIT SWITCHES 
DELAY CHANGE 




0A30 4C04 
0A32 1801 


0A41 


BSC 
SRA 


L OLYNO.E 

1 


NO DELAY SELECTED 
CHECK FOR DELAY 




0A33 4C04 
0A35 1801 


0A47 


BSC 
SRA 


L DLAYl, E 

1 


SELECTED DELAY 
CHECK FOR DELAY 




0A36 4C04 
0A38 1801 


0A4D 


BSC 
SRA 


L DLAY2,E 
1 


SELECTED DELAY 
CHECK FOR DELAY 




0A39 4C04 


0A53 


BSC 


L DLAY3,E 


SELECTED DELAY 




0A3B 6500 


0A7F 


LOX 


LI DELAY 


SET DELAY FOR .5 SEC 




0A3D 6D00 


0859 


STX 


LI START61 


SET UP DELAY 




0A3F 4C00 


086C 


BSC 


L RETRN 






0A41 6500 


0A82 


DLYNO LDX 


LI KOOO 


LOAD ZERO 




0A43 6D00 


0859 


STX 


LI STARTei 


SET UP NO DELAY 




0A45 4C00 


086C 


BSC 

* 

DLAYl LDX 


L RETRN 






0A47 6500 


0A8A 


LI TIMEl 






0A49 6D00 


0859 


STX 


LI STARTei 


SET UP DELAY 


f 


0A4B 4C00 


086C 


BSC 

* 

0LAY2 LDX 


L RETRN 


^ ^ r ^w w «^a..^ r^ T 




0A4D 6500 


0A8B 


LI TIME2 






0A4F 6000 


0859 


STX 


LI STARTei 


SET UP DELAY 




0A51 4C00 


086C 


BSC 


L RETRN 






0A53 6500 


0A8C 


DLAY3 LDX 


LI TIME3 






0A55 6000 


0859 


STX 


LI STARTei 


SET UP DELAY 




0A57 4C00 


086C 


BSC 
* 

BSS 


L RETRN 






0A5A 0000 




E 






0A5A 0000 
0A5B 1703 




SENSE DC 
DC 



/1703 


RESET DSW 




0A5C 0000 




SENPT DC 









0A5D IFOl 




DC 


/IFOl 






0A5E 0000 




SEN25 DC 





SENSE 2501 DSW 




0A5F 4F03 




DC 


/4F03 






0A60 0000 




DISK DC 









0A61 2701 




DC 


/2701 






0A62 0000 




PLOT DC 









0A63 2F01 




DC 


/2F01 






0A64 0000 




PRINT DC 









0A65 3701 




DC 


/3701 






0A66 0000 




CONSL DC 









0A67 OFOl 




DC 


/OFOl 






0A68 0A79 




BITSH DC 


BITSl 






0A69 3A00 




DC 


/3A00 






0A6A 0000 




STOP DC 









0A6B 3F01 




DC 


/3F01 






0A6C 0000 




FEED DC 









0A60 1402 




DC 


/1402 






0A6E 0A70 




FEEDS DC 


TABLE 






0A6F 4E00 




DC 


/4E00 






0A70 0001 




TABLE DC 


1 






0A71 0000 




DC 









0A72 0000 




RESTR DC 









0A73 1404 




DC 


/1404 


READER START 




0A74 0000 




CNTRL DC 









0A75 ICOO 




DC 


/ICOO 


ADVANCE TAPE 




0A76 0A78 




READ DC 


RAREA 






0A77 1200 




DC 


/1200 






0A78 0001 




RAREA BSS 


1 






0A79 0000 
0A7A 0000 
0A7B 0000 




BITSl DC 
BITS2 DC 
BITS3 DC 







BIT SWITCH SETTINGS 
LAST DEVICE SELECTED 
LEVEL ON BITS 




0A7C 0000 




GOCNT DC 





GOOD PASS COUNT 




0A7D 0000 




CLCNT DC 





COLUMN COUNT 




0A7E 0000 




LPCNT DC 





LOOP COUNT 


DATE 


01HAY66 15N0V66 


15JUN67 


15FEB68 




EC NO. 


4154908 419605 


420317 


420403 





3A812260 

3A812270 

3A812280 

3A812290 

3A812300 

3A812310 

3A812320 

3A812330 

3A812340 

3A812350 

3A812360 

3A812370 

3A812380 

3A812390 

3A812400 

3A812410 

3A81242d 

3A812430 

3A812440 

3A812450 

3A812460 

3A812470 

3A812480 

3A812490 

3A812500 

3A812510 

3A812520 

3A812530 

3A812540 

3A812550 

3A812560 

3A812570 

3A812580 

3A812590 

3A812600 

3A812610 

3A1812620 

3A812630 

3A812640 

3Aei2650 

3A812660 

3A812670 

3A812680 

3A812690 

3A812700 

3A812710 

3A812720 

3A812730 

3A812740 

3A812750 

3A812760 

3A812770 

3A812780 

3A812790 

3A812800 

3A812810 

3A812820 

3A812830 

3A812840 

3A812850 

3A812860 

3A812870 

3AB12880 

3A812890 

3A812900 

3A812910 

3A812920 

3A812930 



PROG ID 
PAGE 



0A7F F700 


DELAY DC 




/F700 




SCOPE LOOP DELAY 


0A80 0000 


DSWl DC 











0A81 0001 


ADDOl DC 




1 






0A82 0000 


KOOO DC 









CONSTANT ZERO 


0A83 0001 


KOOl DC 




1 




CONSTANT 1 


0A84 OOOA 


KOlO DC 




10 




CONSTANT 10 


0A85 0032 


K050 DC 




50 




CONSTANT 50 


0A86 0050 


K080 DC 




80 




CONSTANT 80 


0A87 0064 


KlOO DC 




100 




CONSTANT 100 


0A88 OOFA 


K250 DC 




250 




CONSTANT 250 


0A89 61A8 


KMAX DC 




/61A8 




CONSTANT 25000 


0A8A ODEO 


TlMEl DC 




/ODEO 




DELAY - 62.5 MSEC 


0A8B lEEO 


TIME2 DC 




/lEEO 




DELAY - 125 MSEC 


0A8C 3DC0 


TIME3 DC 




/3DC0 




DELAY - 250 MSEC 


0A8D 1000 


NOP IT DC 




/lOOO 






0A8E 1801 


SRAOl DC 




/1801 






0A8F 180A 


SRAIO DC 




/I BOA 






0A90 180B 


SRAll DC 




/180B 






0A91 70E9 


MOFYA MDX 


X 


BUSY-MOOll- 


1 


0A92 707B 


MOFYB MDX 


X 


GAPIT-M0D13 




0A93 706B 


MOFYC MDX 


X 


GAPIT- 


-M0D14 


_i 


0A94 705B 


MOFYD MDX 


X 


GAPIT- 


-M0D15 


_ 1 


0A95 704B 


MOFYE MDX 


X 


GAPIT- 


•M0D16 


_ 1 


0A96 70F4 


MOFYF MDX 


X 


GAPIT- 


•M0D17 


_i 


0A9 7 7004 


MOFYG MDX 


X 


GAPIT- 


■M0018 


_i 


0A98 70C8 


MOFYH MDX 


X 


GAPIT- 


■M0D19 


_» 


0A99 70BC 


MOFYJ MDX 


X 


GAPIT- 


•MODIA 


_i 


0A9A 701A 


MOFYL MDX 


X 


CKRUN- 


■MODll 


_i 


0A9B 7009 


MDFY2 MDX 


X 


JUMP-M0D29- 


1 


0A9C 7047 


MDFY3 MDX 


X 


M0D22- 


•H0D21 




0A9D 7009 


MDFY4 MDX 


X 


HOP IT- 


•M0D23 


^ 1 


0A9E 70B3 


MDFY5 MDX 


X 


HOP IT- 


•M0D24 


— 1 


0A9F 709C 


MDFY6 MDX 


X 


HOP I T- 


M0D25' 


— I 


OAAO 7087 


MDFY7 MDX 


X 


HOPIT- 


M0D26 


— \ 


OAAl 7033 


MDFY8 MDX 


X 


JUMP-M0D27- 


1 


0AA2 701E 


MDFY9 MDX 


X 


JUMP-M0D28- 


1 


0AA4 0501 


END 




BEGIN 






NO STATEMENTS 


FLAGGED IN THE 


ABOVE ASSEMBLY 





3A812940 

3A812950 

3A812960 

3A812970 

3A812980 

3A812990 

3A813000 

3A813010 

3A813020 

3A813030 

3A813040 

3A813050 

3A813060 

3A813070 

3A813080 

3A813090 

3A813100 

3A813110 

3A813120 

3A813130 

3A813140 

3A813150 

3A813160 

3A813170 

3A813180 

3A813190 

3A813200 

3A813210 

3A813220 

3A813230 

3A813240 

3A813250 

3A813260 

3A813270 

3A813280 

3A813290 

3A813300 
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C R 


S S R 


NAME 


VALUE 


AODOl 


0A81 


ADR12 


0982 


BAD 12 


07DC 


BA014 


07E8 


BEGIN 


0501 


BITSW 


0A68 



BITSl 0A79 



BITS2 


0A7A 


BIT S3 


0A7B 


BUSY 


06DC 


BUZY 


084C 


CARDS 


0863 


CHECK 


0877 


CKBIT 


0579 


CKDOK 


07C8 


CKLOP 


053F 


CKOVR 


0900 


CKRDY 


0880 


CKRUN 


0700 


CLCNT 


0A7D 


CLERR 


08CA 


CLRIX 


06AF 


CNTCK 


0999 


CNTIT 


09FE 


CNTOK 


08DB 


CNTRL 


0A74 


CNTOl 


0A13 


CNT02 


0A19 


CNT03 


OAIF 


CNT04 


0A25 


COLGO 


08A6 


CONSL 


0A66 


DELAY 


0A7F 


DISK 


0A60 


DLAYl 


0A47 


DLAY2 


OA-fO 


DLAY3 


0A53 


DLYNO 


OAAl 


OLYOl 


09EC 


DLY02 


09F2 


DLY03 


09F8 


DSWCK 


0800 


DSMl 


0A80 


ENDCK 


0A2B 


ERROR 


071B 


FDCYC 


0716 


FEED 


0A6C 


FEEDS 


0A6E 


FINSH 


07A9 


GAPIT 


0786 


GDCNT 


DA 70 


GOLOP 


0555 


HOPIT 


08D6 


INTOO 


0898 


INTOI 


092E 


INT02 


0943 


INT03 


0958 


I NT 04 


08B3 


INT05 


0960 


JUMP 


0997 


KHAX 


0A89 



EFERENCE 

REFERENCES 
06FA 

0845,0987 

051B,05EB, 0635,0670 
051F,05ED,0637,067F 
0AA4 

052C,053F, 0614,0650 
0A2B 

052E, 0541, 0616, 065E 
0A20,OA68 

0531, 0619, 0661, 06A9 
0544,0549 

0507, 05F7, 0621, 0641 
09F0,0A91 
084F,0876,087F 
0804,0920,0941,0956 
0874 
054B 

05E9, 0633, 0678,0711 
061B,0663,06AB 
09AE, 0986, 09BE, 0906 
0850,0886 
06F2,OA9A 

0877, 087D,089B, 0880 
0938,0946,0950,09 5 6 
0808 

0553,0764,0920 
0719 
086A 

0856,0804 
064B 
0A02 
0A05 
0A08 
OAOB 
08A4 
0821 

06E8,0858,09EO,OA3B 
0752 
0A33 
0A36 
0A39 
0A30 
09D8 
09DB 
09DE 

05F1,05F3,05FO,05FF 
0807 

0800, 0805, OeOF, 0880 
0A11,0A17,0A10,0A23 
0710,0786 

0700, 0727, 072F,07E6 
0601, 06EF 
0693 

0600,0611,0655,0659 
0A92,0A93,0A94,0A95 
06F6,0717,07A3,07A7 
0585, 058F, 0599, 05A3 
O997,0A9D,0A9E,OA9F 
0820 

0831,0933 
0835,0948 
0839,0950 
0830,0890 
0841,0972 
0A9B,0AA1,0AA2 
0908, 0A25 



, 06A4,06E1,07AD,0851,090A,0919,0999,09DO,09FE 
, 06A6,06E3,07AF,0853,090C,091B,099B,09D2,OAOO 

, 0669,06 89,06DF,0715,07DA,09E4,09EA,09FO,U9F6 
,096B, 0980, 0995 

,09CE 



, 0800, 08C A, 08CE, 0807,0906, 09 15, 09 22, 0926, 09 31 
,096 5, 09 70, 097 A, 0985, 098F 



, 0638,0630, 0647, 0649, 06 83, 06 85, 068F, 069 1,06E0 

,0884,0880 
,0A29 

,07F2,07FE,081C 



,0690,06A1 

,0A96,0A97,0A9 8,0A99 

,082B,0864,08B6,08FF,0917 

,05AD,05B7 

,0AA0 
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KNTOl 09B0 099D 

KNT02 09B8 09A0 

KNT03 0900 09A3 

KNT04 0908 09A6 

KOOO 0A82 09E6,OA41 

KOOl 0A83 071F,07A5,086E 

KOlO 0A84 060B,07A9,0901 

K050 0A85 09B8,0A19 

K080 0A86 0802 

KlOO 0A87 0605, 064F, 0697 

K250 0A88 0900, OAIF 

LESSl 0860 0861,08A8,08D9 

LOOPS 0575 0578,0583,0589 

LOOPO 0731 0581 

LOOPl 0741 0587,0588 

L00P2 0751 0591,0595 

L00P3 0761 0598, 059F 

L00P4 081E 05A5,05A9 

LOOPS 07B8 05AF,05B3 

LPCNT 0A7E 06F8,06FC ,0710 

MAPIT 0503 073F,074F,075F 

MDFY2 0A9B 0991 

MDFY3 0A90 08A1 

M0FY4 0A9D 08D0 

MDFY5 0A9E 0928 

M0FY6 0A9F 0930 

M0FY7 OAAO 0952 

MDFY8 OAAl 0967 

MDFY9 0AA2 097C 

HODIA 07F9 06C6,07A 1 ,07F7 

MOOll 06F2 06F4,070A,0710 

M0D12 091E 0569 

M0D13 073A 0557,0568,0688 

M0D14 074A 055B,0560,06BA 

M0D15 075A 055F, 056F , 06BC 

M0D16 076A 0563 ,057 1 ,06BE 

M0D17 07C1 0567,0573,0600 

M0D18 07E1 0602, 0799, 07DF 

M0D19 07ED 0604, 0790, 07EB 

M0D20 0827 0825 

M0D21 0862 0868 , 08A3, 0882 

HOD22 08AA 08AD,08BE ,08E 1 

H0D23 0800 08D2,08£5,0A90 

M0D24 0922 08C6,08E9 ,092A 

M0D25 0939 08ED,0937,093F 

M0D26 094E 08F1 ,0940,0954 

M0D27 0963 08F5, 0961 ,0969 

M0D28 0978 08F9,0976,097E 

M0D29 098D 08FD,098B,0993 

MOFYA 0A91 07D2 

MOFYB 0A92 073B 

MOFYC 0A93 074B 

MOFYD 0A94 075B 

MOFYE 0A95 076B 

MOFYF 0A96 07C2 

MOFYG 0A97 07E2 

MOFYH 0A98 07EE 

MOFYJ 0A99 07FA 

MOFYL 0A9A 0777 

NOADR 07F4 0523, 05EF ,0639 

NODLY 09E6 0905 

NOPIT 0A8D 05F9,068B 

NOROY 0893 088F 

NRDYA 05BF 05BB 

NRDYB 0509 0505 

NRDYC 05D2 05CE 

NUMBR 06FE 0607,0651,0699 

NUMOK 0723 0609,0653,0698 



,09B0,0A0D,0A13 



,06FE, 0723, 0872 ,09Af 



,0593, 0590, 05A7,05Bi 



,072 1,0720, 077 5, 081 A, 0860,0870, 0878,0906 
,076F, 07 06,0828,09 IE 




,07FC,0A99 
,0779,07D4,0A91,0A9A 

0A92 
0A93 
0A94 

,0606,0768,0760,0791 ,0A9 5 

,06DA,0795,07BF,07C4,0A96 

,07E4,0A97 

,07F0,0A98 

,08BA,08DD,0A9C 
,0A90 

,0A9E 
,0A9F 
,0AA0 
,0AA1 
,0AA2 
,0A9B 



0681 



, 09 AA, 0982, 09BA, 0902,090 A 
,06B6,09AC,09B4, 0980,0904, 0900 
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PLOT 

PRINT 

RAREA 

READ 

RESET 

RESTR 

RETRN 

RUNCK 

RUNOK 

SENPT 

SENSE 



SEN25 

SETPT 

SETUP 

SET25 

SETA2 

SRAOl 

SRAIO 

SRAll 

START 

STOP 

TABLE 

TESTl 

TIMEl 

TIME2 

TIME3 

TOTAL 

VECTO 

VECTI 

VECT2 

VECT3 

VECT4 

VECT5 

VECOO 

VECOl 

VEC02 

VEC03 

VECO* 

VEC05 

WAITA 

HAITC 

WAITF 

WAITG 

MAITl 

WAIT2 

HAIT3 

WAIT8 

WHAT! 

WHAT 2 

WHAT3 

WHICH 



0A62 
0A64 
0A78 
0A76 
0849 
0A72 
086C 
06F1 
0702 
0A5C 
0A5A 



0A5E 
061F 
082A 
0667 
0505 
0A8E 
0A8F 
0A90 
0858 
0A6A 
0A70 
06Ee 

0A8A 

0A8B 

0A8C 

0872 

0581 

0587 

0591 

059B 

05A5 

05AF 

0735 

0745 

0755 

0765 

0771 

07BC 

0913 

07CD 

0502 

0729 

0528 

0818 

0815 

053C 

0589 

05C2 

05CC 

0529 



0762 
0742 
0A76 
08A6 

085E 

OA3FtOA45,OA4B,OA51,0A57 
0709 1 070F t0770 , 0700 
0708,0781 
05C2,061F, 0732, 0823 



05C2,061F, 0732, 0823 

05B9, 0505, 06DC,06EA,072A, 0736, 0746, 0756, 0766, 0772, 07BD,07C9,( 
07E9,07F5, 0802, 0808, 081F,084C,085A, 0882, 088A, 0894, 0899, 0884, ( 
0944, 0959, 096E, 0983 



07D0 
.092F 

j096E.098a 

05CC,0667 

05C7 

060F,07AB,0911 

0500 

05BD 

05F5,0687 

0643 

063F 

0888, 0891, 0896, 0A3D,0A43,OA49,OA4F,OA55 

07B9 

0A6E 

05D9,05FB, 0603, 0623, 0645, 0640, 0666,0680, 0695, 0809, 0813, 0816, 09E2 

09E8,09EE,09F4,09FA 

09EC,0A47 

09F2tOA40 

09F8,0A53 

OA0F,0A15,OA18,OA21,0A27 

0547 

057F 

054E 

057A 

0551 

0570 

0503,0500, 0627, 066F, 0734 

0507, 050F, 0629, 067 1,0744 

050B,05E1,062B, 0673, 0754 

050F,05E3, 0620, 0675, 0764 

05 13, 05E5,062F, 0677, 06B2,06E6, 0703,0706 

0517, 05E7, 0631, 0679, 0788 

0657, 069F, 0782, 0903, 090F 

07CB 

0506,0625,0660,072 5 

0528,0576 

0700 

0811 

053A 
0537 
0534 



0527, 0530, 05CO,05C A, 0503,06 ID, 0665, 06A0 



END OF ASSEMBLY 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 

CE UTILITY PROGRAMS 

1130 ON LINE DISK ADJUSTMENT PROGRAM 



PURPOSE 



3. 



USE PROCEDURE 

3.1.1 PROGRAM 
LOADING 



3.1.1 SETUP 



* DISK ADJUSTMENT PROGRAM * 



THE 1130 DISK ACCESS PROGRAM WAS DESIGNED TO BE 
USED WITH THE ACCESS ADJUSTMENT PROCEDURE FOUND 
IN THE SDS MAINTENANCE MANUAL. 

THE PROGRAM WILL MOVE THE ACCESS ARM BETWEEN 
TRACKS 2 AND 200, AND COMPARE SECTOR ZERO 
ADDRESSES AT THOSE TRACKS. 

THE SEEK OPERATION CAN BE SELECTED IN EITHER 10 
OR 20 MILL MODE. 



* 

THE CE. MUST HAVE A 1130 SYSTEM UITH CARD 
READER OR PAPER TAPE INPUT. 



* 
* 

* 

* 
* 

* 

* 



THE PROGRAM MUST BE LOADED BY A 
RELOCATABLE LOADER, IF 1442 USE 
PIO 03AA, IF 2501 USE 03AB, IF 
PAPER TAPE USE 03AC. 



TO LOAD FROM CARDS. 



AND THE DISK 
THAT ORDER. 



A. PLACE THE RELOCATING LOADER, 
ADJUST TEST IN THE READER IN 

B. MAKE READER READY. 

C. PRESS THE 1131 RESET KEY. 

D. PRESS THE 1131 PROGRAM LOAD KEY. 

E. IF THE PROGRAM FAILS TO LOAD OR STOPS AT A 
WAIT BELOW ADDRESS /0160 REFER TO THE 
RELOCATING LOADER DOCUMENTATION. 



TO LOAD FROM PAPER TAPE. 



A. 



IN THE READER. 



030F6 (BREG) 
READER. 



B. 



PLACE THE RELOCATING LOADER 

MAKE READER READY. 

PRESS THE 1131 RESET KEY. 

PRESS THE 1131 PROGRAM LOAD KEY. 

LOADER WILL LOAD AND HALT AT WAIT 

PLACE THE DISK ADJUST TEST IN THE 

MAKE READER READY. 

PRESS THE START KEY. 

IF THE PROGRAM FAILS TO LOAD OR STOPS AT A 

WAIT BELOW ADDRESS /0160 REFER TO RELOCATING 

LOADER DOCUMENTATION. 



AT WAIT 0, ENTER DISK DRIVE AREA CODE 
IN CONSOLE SWITCHES THRU 4 AND CLEAR 
BITS 5 THRU 14. 

DRIVE BIT SW SETTING 

/2000 

1 /880a 

2 /9000 

3 /9800 

4 /AOOO 

WAIT ON TRACK ERROR SW 15. 

THIS SWITCH MAY BE CHANGED AT ANY TIME. 



PART NO. 
PAGE 



30A00O2O 

30A00030 

30A00040 

30A0005O 

30A00060 

30A00070 

30A00080 

30A00090 

30A00100 

30A00110 

30A00120 

30A00130 

30A00140 

30A00150 

30A00160 

30A00170 

30A00180 

30A00190 

30A00200 

30A00210 

30A00220 

30A00230 

30A00240 

30A00250 

30A00260 

30A00270 

30A00280 

30A00290 

30A00300 

30A00310 

30A00320 

30A00330 

30A00340 

30A00350 

30A00360 

30A00370 

30A00380 

30A00390 

30A00400 

30A00410 

30A00420 

30A00430 

30A00440 

30A00450 

30A00460 

30A00470 

30A00480 

30A00490 

30A00500 

30A00510 

30A00520 

30A00530 

30A00540 

30A00550 

30A00560 

30A00570 

3QA00580 

30A00590 

30A00600 

30A00610 

30A00620 

30A00630 

30A00640 

30A00650 

30A00660 

3UA00670 

30A00680 

30A00690 



2243957 
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I 1130 ON LINE DISK ADJUSTMENT PROGRAM 



3.2 OPERATION 



* C. DEPRESS START. 
* 

* 

* THE PROGRAM WILL START OUT IN 20 MILL MODE. 
* 

* THE ACCESS ARM IS FIRST RETURNED HOME. 

* THE ARM THEN SEEKS TO TRACK 2 WHERE SECTOR 

* ZERO IS READ AND COMPARED WITH TRACK ADDRESS 2, 

* A GOOD COMPARE CAUSES THE CONSOLE PRINTER 

* TO PRINT ONCE AND THE ACCESS ARM TO GO TO 

* TRACK 200 WHERE THE SAME OPERATION IS REPEATED 

* FOR TRACK 200. IF COMPARE AT TRACK 200 IS 

* SUCCESSFUL, THE PRINTER WILL PRINT ONCE AND 

* THE ACCESS ARM RETURNS TO TRACK 2 WHERE THE 

* ABOVE OPERATION WILL BE REPEATED. 
* 

* IF A COMPARE ERROR IS DETECTED, THE PROGRAM 

« WILL COME TO A WAIT PROVIDED THAT SW 15 IS ON. 

* (SEE ERROR WA I TS . . ( 3 .3 > ) . IF SW 15 IS OFF 

* AND AN ERROR IS ENCOUNTERED, THE PROGRAM WILL 
« NOT CONTINUE AND THE PRINTER WILL NOT PRINT. 

» 

* TO STOP PROGRAM, DEPRESS IMMEDIATE STOP. 
* 

* TO RESTART PROGRAM, DEPRESS STOP. 
* 

* TO START PROGRAM, DEPRESS START. 
* 

* TO CHANGE FROM 20 MILL MODE OPERATION TO 10 

* MILL OPERATION, OR VICE VERSA PERFORM THE 

* FOLLQWING- 



A. DEPRESS IMMEDIATE STOP. 

B. DEPRESS PROGRAM RESET. 

C. DEPRESS START. 



3.3 WAITS 

/3000 



* 
* 
* 



* ENTER DISK DRIVE AREA CODE. ( SEE 3.1.C ) 

» 
ERROR WAITS *************************************************** 



/30F1 



* THE ADDRESS OF TRACK 2 - SECTOR ZERO WAS READ 

* AND FOUND INVALID. 
« 

* IF ACCESS ARM IS SITTING AT DETENT 2, 

* DEPRESS START TO CONTINUE ADJUSTMENT, ELSE 

* 00 A SECTOR REWRITE AS FOLLOWS- 

* A. LOAD I REG TO /018C. 
8. PLACE CONSOLE SW IN RUN. 
C. DEPRESS START. 



/30F2 



* 

* 
* 
* 
* 

* 
# 
* 

* 
* 

* 

* THE ADDRESS OF TRACK 200 - SECTOR ZERO WAS READ 



♦****♦«*«**»»#» CAUTION #*«*«»»*«*»** 

* » 

* ONLY USE TRACK 2 REWRITE OPTION » 

* WHEN SITTING AT WAIT /30F1 * 

* * 

* REWRITE OPTION WILL DESTROY * 

* ORIGINAL SECTOR DATA. » 
» * 
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3OA00700 

30A00710 

30A00720 

30A00730 

30A00740 

30A00750 

30A00760 

3OA00770 

30A00780 

30A00790 

30A00800 

30A00810 

30A00820 

30A00830 

30A00840 

30A00850 

30A00860 

3OA0O87O 

30A00880 

30A00890 

30A00900 

30A0091Q 

3OA00920 

30A00930 

30A00940 

30A00950 

30A00960 

30A00970 

30A00980 

30A00990 

30A01000 

30A01010 

30A01020 

3OA01030 

30A01040 

30A01050 

30A01060 

30A01070 

30A01080 

30A01090 

30A01100 

30A01110 

3OA01120 

30A01130 

3OA01140 

3OA01150 

30A01160 

30A01170 

30A01180 

30A01190 

30A01200 

3OA0121O 

30A01220 

30A01230 

30A01240 

30A01250 

30A01260 

30A01270 

30A01280 

3OA0129O 

30A01300 

30A01310 

30A01320 

30A01330 

30A01340 

30A01350 

30A01360 

30A01370 



2243957 
lA 



3 

D 
Q 



-J 
-J 



DATE 
EC NO. 



15DEC67 
420400 



26AUG68 
420403A 



010CT68 
571005 



PROG ID 
PAGE 



030A-0 
1 



DATE 
EC NO. 



150eC67 
420400 



26AUG68 
42040 3A 



010CT68 
571005 



PROG ID 
PAGE 



030A-0 
lA 



■J 



J 



/ // 

IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 

CE UTILITY PROGRAMS 

1130 ON LINE DISK ADJUSTMENT PROGRAM 



* AND FOUND INVALID. 
« 

* IF ACCESS ARM IS SITTING AT DETENT 200, 

* DEPRESS START TO CONTINUE ADJUSTMENT, ELSE 

* DO A SECTOR REWRITE AS FOLLOMS- 

* A.^t-OAD I REG TO /018F. 

* B. PLACE CONSOLE SW IN RUN. 

* C. DEPRESS START. 



»»***«*#******* CAUTION ************* 

*****************«**************«*«*:); 

* * 

* ONLY USE TRACK 200 REWRITE OPTION * 

* WHEN SITTING AT WAIT /30F2 * 

* * 

* REWRITE OPTION WILL DESTROY * 

* ORIGINAL SECTOR DATA. * 

* * 
************************************* 



3.4 TERMINATION *************#****«******»************************* 
* 

* TO TERMINATE PROGRAM DEPRESS IMMEDIATE STOP. 
* 

*******«********#******#*************************** 
« 

* NONE 



4.0 PRINTOUTS 



5.0 COMMENTS 



0160 





0160 





6500 


OlDE 


BGN 


LDX 


LI 


INT2 




0162 





6D00 


OOOA 




STX 


LI 


/OOOA 




0164 





6500 


0170 




LDX 


LI 


INT5 




0166 





6D0O 


OOOD 




STX 


LI 


/OOOD 




0168 





6500 


01E2 




LDX 


LI 


PRTIN 




016A 





6D0O 


OOOC 


4 


STX 


LI 


/OOOC 




016C 





C84F 




PROGM 


LDD 




RESRT 




016D 





DC 00 


0000 




STD 


L 







016F 





7002 




* 
INT5 


MOX 




WAIT 




0170 





0000 




DC 




»-* 




0171 





084C 




* 
WAIT 


XIO 




SPDSW 




0172 





1010 




SLA 




16 




0173 





D06A 






STO 




INT2 




0174 





D060 






STO 




PRTIN 




0175 





3000 






DC 




/3000 




0176 





7400 


OlDE 




MDX 


L 


INT2,0 




0178 





70 F9 






MDX 




WAIT 




0179 





7400 


01E2 




MDX 


L 


PRTIN, 




017B 





70 F6 






MDX 




WAIT 




017C 





4878 






BOSC 




+-Z 




017D 





1000 






NOP 






DATE 


15DEC67 26AUG68 


010CT68 






EC NO. 


420400 


42040 3A 


571005 







*««*«***»**»*«****«******************:(!«#:(:** #«<!**S;J;^ 
* 

* TO RERUN PROGRAM ON ANOTHER DRIVE, PRESS THE 

* STOP KEY AND THE PROGRAM WILL STOP AT WAIT 

* SEE SECTION 3.1.C 

* 
*******«********************************»********#* 

ABS 

ORG /0160 

********************************** ****3{i**jii**5}: 

* * 

* DISK ADJUSTMENT PROGRAM * 

* » 
********************************************* 
* 

SET DISK INTERRUPT VECTOR 

SET PROGRAM STOP VECTOR 
SET PRINTER VECTOR 



* SET AREA CODE IN 
** BIT SWITCHES 
SKIP VECTOR 



ENTRY POINT 

SENSE PROGRAM STOP 

CLEAR ACC 
CLEAR VECTOR 
CLEAR VECTOR 
** 

TEST VECTOR FOR ZERO 
INTERRUPT OCCURRED 
TEST VECTOR FOR ZERO 
INTERRUPT OCCURRED 
BRANCHOUT 
FILL WORD 
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30A01380 

30A01390 

30A01400 

30A01410 

30A01420 

30A01430 

30A01440 

3QA01.450 

30A01460 

30A01470 

30A01480 

30A01490 

30A01500 

30A01510 

30A01520 

30A01530 

30A01540 

30A01550 

30A01560 

30A01570 

30A01580 

30A01590 

30A01600 

30A01610 

30A01620 

30A01630 

30A01640 

30A01650 

30A01660 

30A01670 

30A01680 

30A01690 

30AO17OO 

30AO1710 

30A01720 

30A01730 

30A01740 

30A01750 

30A01760 

30A01770 

30A01780 

30A01790 

30A01800 

30A01810 

30A01820 

30A01830 

30A01840 

30A01850 

30A01860 

30A01870 

30A01880 

30A01890 

30A01900 

30A01910 

30A01920 

30A01930 

30A01940 

30A01950 

30A01960 

30A01970 

30A01980 

30A01990 

30A02000 

30A02010 

30A02020 

30A02030 

30A02040 

30A02050 
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017E 





6210 




* 


LDX 


2 


16 


* 


30A02060 
30A02070 


1 017F 





0858 






XIO 




RDSPS 


** 


30A02080 


f 0180 





C068 






LD 




AREA 


FETCH SW INPUT 


30A02090 


I 0181 





E069 






AND 




F£iOO 


CLEAR BITS OTHER THAN 


AREA 30A02100 


, ■ 0182 





DO 66 






STO 




AREA 


SET AREA CODE 


30A02110 


0183 





C600 


01C5 


AGANl 


LD 


L2 


SNDSW-1 


* * 


30A02120 


0185 





E0 64 






AND 




H07FF 




30A02130 


0186 





E862 






OR 




AREA 


* * SET AREA CODE 


30A02140 


0187 





D600 


01C5 




STO 


L2 


SNDSW-1 


* * INTO lOCC 


30A02150 


0189 





72FE 






MDX 


2 


-2 


* * 


30A02160 


018A 





70F8 






MDX 




AGANl 


** 


30A02170 


018B 





7005 




* 


MDX 




SKHME 


* 


30A02180 
30A02190 


018C 





083B 




WTTWO 


XIO 




WRT02 


* WRITE ADDRESS AT 


30A02200 


018D 





40 60 






BSI 




TEST 


* TRACK 2 


3OA02210 


018E 





7002 






MDX 




SKHME 


* 


30A02220 


018F 








* 










30A02230 





083A 




WTHNO 


XIO 




WRT20 


* WRITE ADDRESS AT 


30A02240 


0190 





40 50 




* 


BSI 




TEST 


* TRACK 200 


3OA02250 
30A02260 


0191 





083C 




SKHME 


XIO 




HOME 


* GO HOME 


30A02270 


0192 





405B 






BSI 




TEST 


* 


30A02280 


0193 





083C 






XIO 




TRK2 


** GO TO TRACK 


30A02290 


0194 





4059 






BSI 




TEST 


** 2 


30A02300 


0195 





7063 




* 


MOX 




CHCK2 


* 


30A02310 
30A02320 


0196 





C051 




ONWDO 


LD 




TOGGL 


* 


30A02330 


0197 





4C20 


019F 




BSC 


L 


ONWDl, Z 


** BR IF 10 MIL MODE 


30A02340 


0199 





C02C 






LD 




SNDSW 


* * 


30A02350 


019A 





D037 






STO 




TWHND 


* * 


30A02360 


019B 





D038 






STO 




TWO 


* * 


30A02370 


019C 





6201 






LDX 


2 


1 


* * 


30A02380 


019D 





6301 






LDX 


3 


1 


* * SET PROPER 


30A02390 


019E 





7007 




* 


MDX 




CMNDl 


* * MODE 


30A02400 
30A02410 


019F 





6201 




ONWDl 


LDX 


2 


1 


* * 


30A02420 


OlAO 





6A31 






STX 


2 


TWHND 


* * 


30A02430 


OlAl 





6A32 






STX 


2 


TWO 


* * 


30A02440 


01A2 





6680 


01C6 




LDX 


12 


SNDSW 




30A02450 


01A4 





6780 


01C6 


* 


LDX 


13 


SNDSW 




30A02460 
3OA02470 


01A6 





082B 




CMNDl 


XIO 




TWHND 


* 


30A02480 


01A7 





4046 






BSI 




TEST 


** GO TO TRACK 200 


30A02490 


01A8 





72FF 






MDX 


2 


-1 


** 


30A02500 


01A9 





70 FC 




* 


MDX 




CMNDl 


* 


30A02510 
30A02520 


OlAA 





0821 






XIO 




READ 


* 


30A02530 


OlAB 





4042 






BSI 




TEST 


** 


30A02540 


OlAC 





C065 






LD 




INPUT61 


* * 


30A02550 


OlAD 





F02F 






EOR 




0UT2O&1 


* * READ/COMPARE 


30A02560 


OlAE 





4C18 


01B4 


* 


BSC 


L 


PRT1,+- 


* * ADDR AT TRK 200 


30A02570 
30A02580 


OIBO 





4005 






BSI 




RDSWT 


TEST FOR SW 15 


30A0259O 


0181 





4804 






BSC 




E 


* * 


30A02600 


0182 





30F2 






DC 




/30F2 


** ERROR, DID NOT 


30A02610 


01B3 





7000 




* 


MDX 




SKHME 


* COMPARE 


30A02620 
30A02630 


01B4 





4054 




PRTl 


BSI 




TPRT 


SPACE PRINTER 


30A02640 


01B5 





703F 




* 


MDX 




CMND2 


CONTINUE 


30A02650 
30A02660 


01B6 





0000 




RDSWT 


DC 




*-* 


ENTRY POINT 


30A02670 


0187 





081E 






XIO 




RDSPT 


READ SWS 


30A02680 


01B8 





C033 






LD 




SWDAT 


SET DATA TO ACC. 


30A02690 


01B9 





4C80 


01B6 


* 

* 


BSC 


I 


RDSWT 


EXIT 


30A02700 
30A02710 
30A02720 


OIBC 




0000 






BSS 


E 






30A02730 






-J 



PROG ID 


030A-0 


DATE 


15DEC67 


26AUG68 


010CT68 


PAGE 


2 


■ EC NO. 


420400 


420403A 


571005 



PROG ID 
PAGE 



030A-0 
2A 



-J 



U 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 

CE UTILITY PROGRAMS 

1130 ON LINE DISK ADJUSTMENT PROGRAM 



PART NO. 2243957 
PAGE 3 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 

CE UTILITY PROGRAMS 

1130 ON LINE DISK ADJUSTMENT PROGRAM 



PART NO. 
PAGE 



22A3957 
3A 





CISC 





4C00 0205 


RESRT 


BSC 


L RSTRT 


MODE CHANGE SET/UP 


30A02740 




GIBE 





0000 


SPDSW 


DC 






30A02750 




OIBF 





3F01 




DC 


/3F01 


lOCC-SENSE RESET (5) 


30A02760 




OICO 





01C2 


PRTIl 


DC 


DATA 


SPACE 


30A02770 




OlCl 





0900 




DC 


/0900 


PRINTER lOCC 


30A02780 




01C2 





C400 


DATA 


DC 


/C400 


ZEROITILT/ROTATE) 


30A02790 




01C3 





OFOO 




DC 


/OFOO 


SENSE AND NO RESET 


30A02800 




01C4 





0000 


SWl 


DC 


*-« 


ERROR STOP SW. 


30A02810 




01C5 





OFOl 




DC 


/OFOl 


SENSE AND RESET 


30A02820 




01C6 





00C6 


SNDSW 


DC 


198 


CONSTANT 198 


30A02830 




01C7 





0701 




DC 


/0701 


lOCC-SENSE/RESET OSW 


30A02840 




01C8 





OlDA 


WRT02 


DC 


0UT02 




30A02850 




01C9 





0500 




DC 


/0500 


lOCC-WRITE TRACK 2 


30A02860 




OICA 





OlDC 


WRT20 


DC 


0UT20 




30A02870 




OICB 





0500 




DC 


/0500 


lOCC-WRITE TRACK 200 


30A02880 




Dice 





0211 


READ 


DC 


INPUT 




30A02890 




OICD 





0600 




DC 


/0600 


lOCC-READ ADDRESS 


30A02900 




OICE 





OOCA 


HOME 


DC 


202 




30A029 10 




OICF 





0404 




DC 


/0404 


lOCC-SEEK HOME 


30A02920 




OlDO 





0002 


TRK2 


DC 


2 




30A02930 




OlDl 





0400 




DC 


/0400 


lOCC-GO TO TRK 2 


30A02940 




0102 





0000 


TWHND 


DC 


*-* 




30A02950 




01D3 





0400 




DC 


/0400 


lOCC-GO TO TRK 200 


30A02960 




01D4 





0000 


TWO 


DC 


*-* 




3UA02970 




01D5 





0404 




DC 


/0404 


lOCC-BACK TO TRK 2 


30A02980 




01D6 





OlEC 


ROSPT 


DC 


SWDAT 


READ SWITCHES 


30A02990 




0107 





3A00 




DC 


/3A00 


lOCC 


30AO3000 




01D8 





01E9 


RDSPS 


DC 


AREA 




30A03010 




0109 





3AO0 




DC 


/3A00 


lOCC-READ BIT SWS 


30A0302U 




OlDA 





0001 


OUT02 


DC 


1 


WRT TRK 2 TABLE 


30A03030 




OlOB 





0010 




DC 


/OOIO 


* 


30A03040 




OlDC 





0001 


0UT20 


DC 


1 


WRT TRK 200 TABLE 


30A03050 




0100 





0640 


* 


DC 


/0640 


^ 


30A03060 
30A03070 




OlDE 





0000 


INT2 


DC 


*-» 


» 


30A03080 




OlDF 





08E6 




XIO 


SNDSW 


** DISK INTERRUPT 


30A03090 




OlEO 





4CC0 OlDE 


* 

* 


BOSC 


I INT2 


* ROUTINE 


3OA03100 
30A03110 
30A03120 




01E2 





0000 


PRTIN 


DC 


*-* 


ENTRY POINT 


30A03130 




01E3 





0009 




STO 


SAVEl 


SAVE ACC. 


30A03140 




01E4 





08DF 




XIO 


SWl 


SENSE AND RESET PRT. 


30A03150 




01E5 





COOT 




LD 


SAVEl 


RESTURE ACC. 


30A03160 




01E6 





4CC0 01E2 


* 

* 


BOSC 


I PRTIN 


CLEAR INT. 


30A03170 
30A03180 
30A03190 




01E8 





0000 


TOGGL 


DC 


#-* 


MODE TOGGLE 


30A0320O 




01E9 





0000 


AREA 


DC 


*-* 


CURRENT AREA CODE 


30A03210 




OlEA 





07FF 


H07FF 


DC 


/07FF 




30A03220 




OlEB 





F800 


F8 00 


DC 


/F800 


CLEAR WORD 


30A03230 




OlEC 





0000 


SWDAT 


DC 


*-* 


DATA SWITCH INPUT AREA 


30A03240 




01 ED 





0000 


SAVEl 

* 


DC 


*-* 


ACC SAVE AREA 


30A03250 
30A03260 




OlEE 





0000 


TEST 


DC 


*-* 


* 


30A03270 




OlEF 





08D6 




XIO 


SNDSW 


** 


30A03280 




OlFO 





180D 




SRA 


13 


* * CHECK FOR FILE 


30A03290 




OlFl 





4804 




BSC 


E 


* * READY 


30A03300 




01F2 





70 FC 




MOX 


TESTGl 


** 


30A03310 




01F3 





4C80 OlEE 


* 


BSC 


I TEST 


* 


3OA0332O 
30A0333O 




01F5 





08DE 


CMND2 


XIO 


TWO 


* 


3UA03340 




01F6 





40F7 




BSI 


TEST 


* GO TO TRACK 2 


30A0335O 




01F7 





73FF 




MDX 


3 -1 


» 


3UA03360 




01F8 





70FC 


* 


MDX 


CMND2 


* 


30A03370 
30A03380 




01F9 





0802 


CHCK2 


XIO 


READ 


* 


30A03390 




OlFA 





40F3 




BSI 


TEST 


** 


30A03400 




OlFB 





C016 




LD 


INPUTE.1 


* * 


30A03410 


DATE 


15DEC67 26AUG68 


010CT68 






PROG H 


EC NO. 


420400 420403A 


571005 






PAGE 



OlFC 





FODE 




EOR 


OUT02G1 


* * READ/CUMPARE 


3UA03420 


OlFD 





4C18 0203 




BSC L PRT2,+- 


* * ADDR AT TRK 


2 


30A03430 








* 










3UA03440 


OlFF 





40B6 




BSl 


RDSWT 


TEST FOR SWITCH 


16 


30A03450 


0200 





4804 




BSC 


E 


SKIP IF SW OFF 




30A03460 


0201 





30F1 




DC 


/30F1 


** ERROR, DID 


NOT 


30A03470 


0202 





708E 


* 


MOX 


SKHME 


* COMPARE 




30A034a0 
30A03490 


0203 





4005 


PRT2 


BSI 


TPRT 


SPACE PRINTER 




30A035O0 


0204 





7091 


* 


MOX 


ONWDO 


CONTINUE 




30A03510 
30A03520 


0205 





C0E2 


RSTRT 


LD 


TOGGL 


* 




30A03530 


0206 





F0D3 




EOR 


QUT02 


** CHANGE MODE 




30A03540 


0207 





DOEO 




STO 


TOGGL 


*« 




30A03550 


0208 





7088 


* 


MDX 


SKHME 


* 




30A03560 
30A03570 


0209 





0000 


TPRT 


DC 


*-* 


ENTRY POINT 




3UA03580 


020A 





08B7 




XIO 


DATA 


SENSE PRINTER 




30A03590 


020B 





1005 




SLA 


5 


MOVE LEFT 




3UA03600 


020C 





4828 




BSC 


+ Z 


SKIP IF READY 




30A03610 


020D 





70FC 




MDX 


TPRT+1 


LOOP IF NOT READY 


30A03620 


020E 





08B1 




XIO 


PRTll 


SPACE PRINTER 




30A03630 


020F 





4C80 0209 


* 


BSC 


I TPRT 


EXIT 




30A03640 
30A03650 


0211 





0002 


INPUT 


DC 


2 


INPUT AREA 




30A03660 


0212 




0002 




BSS 


2 


* 




30A03670 


0214 




0160 




END 


BGN 






30A03680 
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*^- 



AGANl 


0183 


018A 










AREA 


01E9 


0180 


0182 


0186 


01D8 




BGN 


0160 


0214 










CHCK2 


01F9 


0195 










CMNDl 


01A6 


019E 


01A9 








CMND2 


01F5 


01B5 


01F8 








DATA 


01C2 


OICO 


020A 








F8 00 


OlEB 


0181 










HOME 


OICE 


0191 










H07FF 


OlEA 


0185 










INPUT 


0211 


OlAC 


OICC 


OlFB 






INT2 


OlDE 


0160 


0173 


0176 


OlEO 




INT5 


0170 


0164 










ONMDO 


0196 


0204 










ONMDl 


019F 


0197 










0UT02 


OlDA 


01C8 


OlFC 


0206 






0UT20 


OlDC 


OlAD 


OICA 








PROGM 


016C 












PRTIN 


01E2 


0168 


0174 


0179 


01E6 




PRTIl 


OICO 


020E 










PRTl 


01B4 


OlAE 










PRT2 


0203 


OlFD 










RDSPS 


01D8 


017F 










RDSPT 


01D6 


01B7 










RDSWT 


01B6 


OIBO 


01B9 


OlFF 






READ 


OICC 


OlAA 


01F9 








RESRT 


OIBC 


01 60 










RSTRT 


0205 


OIBC 










SAVEl 


OlED 


01E3 


01E5 








SKHME 


0191 


018B 


018E 


01B3 


0202 0208 




SNDSW 


01C6 


0183 


0187 


0199 


01A2 01A4 OlDF OlEF 




SPDSW 


OIBE 


0171 










SWOAT 


OlEC 


01B8 


01D6 








SWl 


01C4 


01E4 










TEST 


OlEE 


018D 


0190 


0192 


0194 01A7 OlAB 01F2 01F3 01F6 OlFA 


TOGGL 


01E8 


0196 


0205 


0207 






TPRT 


0209 


0184 


0203 


0200 


020F 




TRK2 


OlDO 


0193 










TWHNO 


01D2 


019A 


OlAO 


01A6 






TWO 


0104 


019B 


OlAl 


01F5 






WAIT 


0172 


016F 


0178 


01 7B 






WRT02 


01C8 


0180 










WRT20 


OICA 


018F 










WTHND 


018F 












WTTWO 


018C 












END OF 


ASSEMBLY 
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* 
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* 

* lA 

* 

* lA 

* lA 

« lA 

* lA 

* 

* CHARACTER CODES AND CONTROLS 2 

♦ SCOPE LOOP PROGRAMS 3 

• CORE STORAGE CHECK 

* CONSOLE PRINTER 

• KEYBOARD 

♦ PAPER TAPE PUNCH 
* 

♦ PAPER TAPE READER 
♦ 

* 1442 PUNCH 

♦ 1442 READER 
« 

* 2310 SEEK 
♦ 

♦ 2310 REAO/WRITF/COMPARE 

* 1627 PLOTTER 

* 2501 READER 

♦ 1403 PRINTER 

♦ 1132 PRINTFR 

* 



3A000020 
3A000030 
3A000040 
3AO00050 
3A000060 
3A000070 
3A000080 
3A000090 
3A000100 
3A00,0110 
3A000I20 
3A000130 
3A000140 
3A000150 
3A000160 
3A000170 
3AOn0180 
3A000190 
3A000200 
3A000210 
3A000220 
3A000230 
3A000240 
3A000250 
3A000260 
3A000270 
3A000280 
3A000290 
3A000300 
3A000310 
3A000320 
3A000330 
3A000340 
3AO00350 
3A000360 
3A000370 
3A000380 
3A000390 
3A000400 
3A000410 
3A000420 
3A000430 
3A000440 
3A000450 
3An00460 
3A000470 
3A000480 
3A000490 



1. PURPOSE 



2. REQUIREMENTS 



USE PROCEDURE 

3.1 SETUP AND 
OPERATION 

3.2 LOADING 



3.3 WAITS 



ONE CARD PROGRAMS THAT PROVIDE THE C.E. WITH THE 
ABILITY TO EXERCISE VARIOUS FUNCTIONS OF THE 
1130 SYSTEM. EACH CARD IS IDENTIFIED BY THE 
NUMBER IN COLUMNS 79 AND 80. THIS NUMBER REFERES 
TO A PARAGRAPH WITHIN THE APPENDIX. 



3.4 TERMINATION 



3.5 RESTART 



4. PRINTOUTS 



5. COMMENTS 



THE C.E. MUST HAVE THE 1130 SYSTEM AND A MEANS 
TO ENTER THE PROGRAM. 



CHECK EACH WRITE-UP FOR SWITCH SETTINGS BEFORE 
AND AFTER LOADING. 

THE PROGRAM IS LOADED IN IPL MODE FROM CARDS, 
PAPER TAPE OR MAY BE BIT-SWITCHED IN. 

WAITS ARE IDENTIFIED BY THE B-REGISTER. THFY 
HAVE THE FOLLOWING MEANING, 

B-REG 3001 BIT SWITCH SETTINGS REQUIRED. 

3002 ONE PASS OF THE PROGRAM HAS BEEN 
COMPLETED. 



3003 



NO INTERRUPT RECEIVED AFTER A 
WRITE COMMAND. 



* 
* 

* 

* 

* 
* 

* 

* 
* 
« 
* 
* 
* 
* 

* 

* 
* 

* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 

* 

* 
* 
* 
* 

* 

* 
* 
*****♦*♦**♦»♦***♦**♦»♦»*♦»*♦**♦♦»♦♦»♦♦*♦♦*»»♦«***♦♦ 



3004 NO INTERRUPT RECEIVED AFTER A READ 
COMMAND. 

3005 NO INTERRUPT RECEIVED AFTER A 
CONTROL COMMAND. 

3006 ERROR, SEE INDIVIDUAL PROGRAM. 

3007 ERROR, SEE INDIVIDUAL PROGRAM. 

PRESS IMMEDIATE STOP. IF PROGRAM STOP IS PRESS<=D 
THE PROGRAM MAY NOT RUN BY PRESSING START BE- 
CAUSE INTERRUPT 5 IS ON. 

PRESS IMMEDIATE STOP AND RESET. PRELOADING 
SWITCHES MAY BE SET AS DESIRED. PRESS START. AT 
WAIT 1 MAKE REQUIRED BIT SWITCH SETTINGS. 

NONE EXCEPT FOR DEVICES THAT PRINT CHARCTFRS 
ENTERED FROM THE BIT SWITCHES. 

IN MOST CASES A SPECIFIFIFD 'LDX' MAY REPLACE A 
WAIT TO ALLOW RUNNING WITHOUT INTERRUPT. ERROR 
WAITS MAY BE REPLACED BY A "NOP*. OTHER COMMENTS 
WILL BE FOUND IN EACH PROGRAM. AN INSTRUCTION 
FOLLOWED BY *A* WILL BE ALTERED. THIS IS DUE TO 
THE LIMITATIONS OF 1130 IPL MODE. THE ALTERED 
INSTRUCTION WILL FOLLOW THE *A*. 



3A000510 
3A000520 
3A000530 
3A000540 
3A000550 
3A000560 
3A000570 
3A000580 
3A000590 
3A000600 
3A000610 
3A000620 
3A000630 
3AD00640 
3A000650 
3A000660 
3A000670 
3A000680 
3A000690 
3A000700 
3A000710 
3A000720 
3A000730 
3A000740 
3A000750 
3A000760 
3AOOO770 
3A000780 
3A000790 
3A000800 
3A000310 
3A000820 
3A00O830 
3AOOOB40 
3A000850 
3A000860 
3A000870 
3A0008Bn 
3A000890 
3A000900 
3A0O09I0 
3A000920 
3A000930 
3A000940 
3A3 009 50 
3An00960 
3A000970 
3A000980 
3A000990 
3A001000 
3A001010 
3A001020 
3A001030 
3A001040 
3A001050 
3A001060 
3A001070 
3A0010aO 
3A001090 
3A001100 
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6. * CHAR * 1132 ♦ 1403 * KEY/BO 

APPENDIX A * A * CI * 64 ♦ AOOO 

* B * C2 * 25 * R800 

* C * C3 * 26 ♦ 8400 

* D * C4 * 67 * 8200 

* E ♦ C5 * 68 * 8100 

* F * C6 * 29 * 8080 

* G ♦ C7 * 2A * 8040 

* H * C8 * 6B * 8020 

* I * C9 * 2C * 8010 

* J ♦ 01 * 58 * 5000 

* K ♦ 02 * 19 * 4800 
» L ♦ 03 * lA ♦ 4400 

* M ♦ D4 * 58 * 4200 

* N ♦ D5 * IC * 4100 

* ♦ 06 ♦ 50 • 4080 

* P * 07 * 5E ♦ 4040 

* Q ♦ 08 * IF * 4020 

* R ♦ 09 * 20 * 4010 

* S * E2 * 00 * 2800 

* T ♦ F3 ♦ OE * 2400 

* L) ♦ E4 * 4F * 2200 

* V ♦ E5 * 10 ♦ 2100 

* H * E6 ♦ 51 * 2080 

* X ♦ E7 ♦ 52 * 2040 

* Y ♦ E8 * 13 * 2020 

* Z * E9 * 54 * 2010 

* * FO » 49 * 2000 

* 1 ♦Fl»40* 1000 

* 2 * F2 * 01 * 0800 

* 3 ♦ F3 * 02 * 0400 

* 4 * F4 * 43 * 0200 

* 5 * F5 * 04- * 0100 

* 6 ♦ F6 * 45 * 0080 

* 7 * F7 * 46 * 0040 

* 8 * F8 * 07 » 0020 

* 9 * F9 * 08 * 0010 

* = * 7E * 4A * OOAO 

* * ♦ 58 * 62 * 4420 

* . * 4B * 6E * 8420 

* • * 7D * OR * 0120 

* , ♦ 6B ♦ 16 * 2420 

* ( ♦ 40 * 57 * 3120 

* - * 60 * 61 * 4000 

* I ♦ 50 * 2F * 4120 

* + * 4E * 60 * 80A0 

* / *61*4C* 3000 

* * * 5C * 23 * 4220 

* e ♦ 50 * 15 * 8000 

* SPACE * 00 * 7F * 0000 

* NUMBER ♦ ♦ 0420 

* AT * * 0220 

* LS THN * * 8220 

* LOG/NOT* * 4060 

* SEM/CLM* * 40A0 

* QUOTE * * 0060 

* LOG /OR ♦ * 8060 

* UNSCORE* * 2120 

* OST MK * ♦ 2060 

* COLON * * 0820 

* CRT THN* * 20A0 

* EXCLAIM* * 4820 

* PERCENT* . * 2220 

* CENT * * 8820 

* EOF * * 0008 

* ER CHR * * 0004 

* ER FLO ♦ ♦ 0002 

* 0-8-2 * * 2820 



* 


CON/PTR U/C 


* 


CON/PTR L/C* 


3A001120 


* 


3E 


* 




3C 


* 


3A001130 


* 


lA 


* 




18 


* 


3A001140 


♦ 


IE 


* 




IC 


* 


3A001150 


* 


32 


* 




30 


* 


3A001160 


♦ 


36 


* 




34 


* 


3A001170 


* 


12 


* 




10 


* 


3A001180 


♦ 


16 


* 




14 


* 


3A001190 


* 


26 


* 




24 


* 


3A001200 


♦ 


22 


♦ 




20 


* 


3A001210 


* 


7E 


* 




7C 


* 


3A001220 


♦ 


5A 


* 




58 


* 


3A001230 


* 


5E 


* 




5C 


* 


3A001240 


♦ 


72 


* 




70 


* 


3A001250 


* 


76 


* 




74 


* 


3A001260 


* 


52 


» 




50 


* 


3A001270 


♦ 


56 


* 




54 


* 


3A001280 


♦ 


66 


* 




64 


* 


3A001290 


* 


62 


♦ 




60 


* 


3A001300 


* 


9A 


* 




98 


♦ 


3A001310 


* 


9E 


* 




9C 


* 


3A001320 


* 


B2 


* 




RO 


* 


3A001330 


* 


B5 


* 




B4 


* 


3A001340 


* 


92 


* 




90 


* 


3A001350 


♦ 


96 


♦ 




94 


* 


3A001360 


* 


A6 


* 




A4 


* 


3A001370 


* 


A2 


* 




AO 


* 


3A001380 


* 


C4 


*««<[ «[«»««*«:»«* 


3A001390 


* 


FC 


* 








3A001400 


* 


D8 


* 


♦«******«*** 


3A001410 


* 


DC 


* 


* 


CONSOLE 


* 


3A001420 


* 


FO 


* 


* 


PRINTER 


* 


3A001430 


* 


F4 


* 


* 


CONTROLS* 


3A001440 


* 


DO 


* 


*»****«**♦** 


3A001450 


» 


D4 


* 


♦ 


CARRIER 


* 


3A001460 


* 


E4 


* 


* 


RETURN 


* 


3A001470 


* 


EO 


* 


* 


81 


* 


3A001480 


* 


C2 


* 


************ 


3A001490 


* 


40 


* 


* 


TAB 


* 


3A001500 


* 


00 


* 


* 


41 


* 


3A001510 


* 


E6 


* 


************ 


3A001520 


* 


80 


* 


* 


SPACE 


* 


3A001530 


* 


FE 


* 


* 


21 


* 


3A001540 


* 


84 


* 


************ 


3A001550 


* 


F6 


* 


♦BACK/SPACE* 


3A001560 


* 


DA 


♦ 


* 


11 


* 


3A001570 


* 


BC 


* 


************ 


3A001580 


* 


D6 


* 


♦ 


SHIFT TO 


* 


3A001590 


* 


44 


* 


* 


RED 


* 


3A001600 


* 


21 


♦ 


* 


09 


* 


3A001610 


♦ 


CO 


» 


* 




* 


3A001620 


♦ 


04 


« 


************ 


3A001630 


* 


OE 


* 


* 


SHIFT TO 


* 


3A001640 


* 


F2 


* 


* 


BLACK 


* 


3A001650 


* 


02 


* 


* 


05 


* 


3A001660 


* 


E2 


* 


************ 


3A001670 


* 


C6 


* 


* 


LINE FEED* 


3A001680 


« 


BE 


* 


* 


03 


* 


3A001690 


* 


86 


* 


************ 


3A001700 


* 


82 


* 








3A001710 


* 


46 


♦ 








3A001720 


* 


42 


* 








3A001730 


♦ 


06 


* 








3A001740 


* 


02 


♦ 








3A001750 


*************** 








3A001760 


* 












3A001770 


* 












3A001780 


* 












3A001790 



*************************************************** 


3A001800 


* PLOTTER BIT SWITCH CONTROL 


* 


PAPER 


TAPE ! 


BIT • 


5W 


* 


3A001810 


******************************* 


CONTROL 


AND 


BINARY* 


3A001820 


* 




♦ 


PATTERN 


DATA. 






* 


3A001830 


* BIT SWS FUNCTION 


********************* 


3A001840 


* AND 8 PEN 1 


DOWN 


* 




















3A001850 


* 1 AND 9 DRUM 


DOWN 


* 




















3A001860 


* 2 AND 10 — DRUM 


UP 


** 




** 




* 






* 


3A001870 


* 3 AND 11 — CARR, 


. RIGHT 


* 


* 




k 


* 


* 


* 




» 


* 


3A001880 


* 4 AND 12 — CARR, 


. LEFT 


* 




♦ * 




0*. 




* : 


* 


* 


3A001890 


* 5 AND 13 ~ PEN UP 


* 




*0 











* 





* 


3A001900 


* SET CHAR. 1 IN BIT SWS 0-5 


* 




















* 


3A001910 


* SET CHAR. 2 IN BIT SWS R-13 


* 






















* 


3A001920 


******************************* 





















* 


3A001930 


* 




* 





















* 


3A001940 


* 




* 




















* 


3A001950 


* 




♦ 





















* 


3A001960 


********************* 


* 




















* 


3A001970 


* DECIMAL TO HEX 


* 


* 




















* 


3A001980 


* CONVERSION TABLE 


* 


» 



















* 


3A001990 


********************* 


* 























* 


3AOO2OO0 


* CYL * BIT SW 


* 


* 






















* 


3A002010 


* NUMBER * SETTING 


* 


* 






















* 


3A002020 


* IN HEX * IN HEX 


* 


* 





















* 


3A002030 


********************* 


♦ 






















* 


3A002040 


* 10 * OA 


* 


* 





















* 


3A002050 


* 20 * 14 


* 


* 





















* 


3A002060 


* 30 * IE 


* 


* 




















* 


3A002070 


* 40 * 29 


* 


* 






















* 


3A002080 


♦50 * 32 


* 


* 





















* 


3A002090 


* 60 * 3C 


* 


« 





















* 


3Aa02100 


* 70 * 46 


* 


* 




















* 


3A002110 


* 80 * 50 


* 


* 





















* 


3A002120 


* 90 * 5A 


* 


* 




















♦ 


3A002130 


♦ 100 * 64 


* 


* 




















* 


3A002140 


* 110 * 6F 


* 


* 



















» 


3A002150 


« 120 * 78 


* 


* 






















* 


3A002160 


* 130 * 8? 


* 


* 





















* 


3A002170 


* 140 * 8C 


* 


* 





















* 


3A002180 


* 150 * 96 


* 


* 




















* 


3A002190 


* 160 * 40 


* 


* 





















* 


3A002200 


* 170 * AA 


* 


* 




















* 


3A002210 


* 180 * R4 


* 


* 




















* 


3A002220 


» 190 * RE 


* 


* 



















* 


3A002230 


* 200 * C8 


* 


* 





















* 


3A002240 


********************* 


♦ 




















♦ 


3A002250 


* 




* 




















* 


3A002260 


* 




♦ 



















* 


3A002270 


* 




* 




















* 


3A002280 


* 




* 



















* 


3A002290 


* TO RFAD/COMPARE BINARY 


» 



















* 


3A002300 


* PATTERNt LOAD TAPE 


: HERE 


-* 


















* 


3A002310 


* 




* 


















* 


3A002320 


* 


PAPFR 


* 


















* 


3A002330 


* 


TAPE 


********************* 


3A002340 


* 


CHANNEL • 


— 


8 


7 6 


5 


4 




3 


2 


1 




3A002350 


* 
























3A002360 


* CHAR 1 


BIT SWS - 


— 





1 2 


3 


4 




5 


6 


7 




3A002370 


* 
























3A002380 


* CHAR 2 


■ BIT SWS ■ 


— 


8 


9 1 


1 


1 




1 


1 


1 




3A002390 


* 






























3A002400 


* 
























3A002410 


*************************************************** 


3A002420 
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6. I STORAGE CHECK 



A. PRELOAD SWS 



B. LOADING 

C. WAIT 1 

2 
6 

D. RESTART 

E. COMMENTS 





0000 








0000 





6009 




0001 





0000 




0002 





0000 




0003 





0000 




0004 





0000 




0005 





0000 




0006 





0001 




0007 





003A 




0008 





0015 




0009 





603F 




OOOA 





1006 




OOOB 





E8FC 




OOOC 





1006 




OOOD 





E8FA 




OOOE 





D0F4 




OOOF 





08F6 




0010 





COFO 




0011 





D0F3 




0012 





1802 




0013 





1002 




0014 





90F1 




0015 





DOEE 




0016 





3001 




0017 





08EE 




0018 





C0E8 




0019 





IBDO 


DATE 


15FEB68 25JUL69 


EC NO. 


420403 


571053 



*♦♦****♦♦*♦*♦****♦♦*♦*♦♦•♦♦**♦**♦**•*♦*♦*♦*♦♦♦♦♦♦** 

EACH CORE LOCATION IS CHECKED WITH A PATTERN 
SET IN THE BIT SWITCHES. IF BIT 14 IS ON THF BIT 
SWITCHES ARE USED AS AN ADDRESS TO BE CHECKED 
AND THE PATTERN IS /5555. 



BIT SW 15- HALT AFTER ONE PASS. 
14- USE ONE ADDRESS 
MEMORY 



3- 


4 


K 


2- 


8 


K 


1- 


16 


K 


0- 


32 


K 



* 
* 

* 
* 
* 
* 

* 
* 
* 

« 

* 
* 
* 
* 
« 

* 

* 

•♦*•*♦♦♦♦*♦♦*♦♦**♦****♦****♦*♦♦♦***«****♦**♦**»**«* 
ABS 



IPL MODE FROM CARDS OR PAPER TAPE. 

SET PATTERN OR ADDRESS IN BIT SWITCHES. 

ONE PASS COMPLETED, PRESS START TO CONTINUE. 

PATTERN CHANGED. THE BIT THAT WAS DROPPED OR 
PICKED IS ON IN THE ACCUMULATOR. FAILING ADDRESS 
IS IN ADDRESS LOCATION 2. PRESS START TO 
CONTINUE OR DO A RESTART. 

PRESS IMMEDIATE STOP AND RESET. PRELOADING 
SWITCHES MAY BF SET AS DESIRED. PRESS START. 

THIS PROGRAM WILL WRITE AND READ ALL CORE 

ADDRESSES OUT SIDE THE PROGRAM AREA. 

EACH ADDRESS IS WRITTEN AND CHECKED 2 TIMES. 

IF AN ADDRESS IS FOUND TO BE A PROBLEM, SET BIT 

14 ON AND RESTART. PLACE THE ADDRESS IN THE BIT 

SWITCHES AT WAIT 1. 

THE PROGRAM WILL CHECK ONLY THAT ADDRESS WITH 

THE PATTERN /5555. 



ORG 
LDX 
STGSW DC 
STGLC DC 
STGPN DC 
STGCR DC 
STGHL DC 

STGRD DC 
DC 
STGXX DC 
STGST LDX 
SLA 
OR 
SLA 
OR 
STO 
XIO 
LD 
STO 
SRA 
SLA 
S 

STO 
WAIT 

XIO 

LD 

RTE 





STGST 

♦-♦ 

♦-♦ 

*-» 

*-♦ 

*-♦ 

/OOOl 

/003A 

/0015 

STGBO 

6 

STGXX 

6 

STGXX 

STGPN 

STGRD 

STGSW 

STGHL 

2 

2 

STGRD 

STGCR 

1 

STGRD 
STGSW 
16 



BIT SWITCH STO 

ADRS LOCATION 

STORAGE PATTERN 

SIZE OF CORE 

BIT 15- HALT 

BIT 14- USE 1 ADRS 



/3A00 RD BIT SW 



*A* DC 

CONSTANT 
*A* LO STGXX 

* PATTERN TO USE 

* UNLESS ALTERNATE 

* IS SELECTED 



READ BIT SWS 

GET BIT SW SETTINGS 

SET HALT IF B 15 ON 



ADJ CORE SIZE 
STORE CORE SIZE 
SET SWS FOR PATTERN 

♦ OR ADDRESS 
READ BIT SWS 

GET BIT SW SETTINGS 

♦ AND SAVE IN Q REG 



3A002440 

3A002450 

3A002460 

3A002470 

3A002480 

3A002490 

3A002500 

3A002510 

3A002520 

3A002530 

3A002540 

3A002550 

3A002560 

3A002570 

3A002580 

3A002590 

3A002600 

3A002610 

3A002620 

3A002630 

3A002640 

3A002650 

3A002660 

3A002670 

3A002680 

3A002690 

3A002700 

3A002710 

3A002720 

3A002730 

3A002740 

3A002750 

3A002760 

3A002770 

3A002780 

3A002790 

3A002800 

3A002810 

3A002820 

3A002830 

3A002840 

3A002850 

3A002860 

3A002870 

3A002880 

3A002890 

3A002900 

3A002910 

3A002920 

3A002930 

3A002940 

3A002950 

3A002960 

3A002970 

3A002980 

3A002990 

3A003000 

3A003010 

3A003020 

3A003030 

3A003040 

3A003050 

3A003060 

3A003070 

3A003080 

3A003090 

3A003100 

3A003110 



PROG ID 
PAGE 



OOIA 


COEA 




LD 


STGHL 


GET CNTL WORD 


3A003120 


OOIB 


1801 




SRA 


1 




3A003130 


OOIC 


4804 




BSC 


E 


USE SWS AS ADRS 


3A003140 


0010 


7003 




MDX 


STG7 


* YES 


3A003150 


OOIE 


18D0 




RTE 


16 


♦ NO 


3A003160 


OOIF 


D0E3 




STO 


STGPN 




3A003I70 


0020 


7002 




MDX 


STGO 




3A003180 


0021 


18D0 


STG7 


RTE 


16 




3A003190 


0022 


DOEl 




STO 


STGCR 


SET ADRS IN CORE SIZE 


3A003200 


0023 


COEO 


STGO 


LD 


STGCR 


LD CORE SIZE 


3A003210 


0024 


DODD 




STO 


STGLC 


STORE IN XR 2 


3A003220 


0025 


CODD 


STGl 


LO 


STGPN 


LD PATTERN TO USE 


3A003230 


0026 


0002 


STG2 


DC 


/00D2 


*A» TO STO 2 


3A003240 


0027 


00C2 




DC 


/00C2 


♦A* TO LD 2 


3A003250 


0028 


1000 




NOP 






3A003260 


0029 


FODC 




EOR 


STGRD 


CHG BIT 15 


3A003270 


002A 


00D2 


STG3 


DC 


/00D2 


*A» TO STO 2 


3A003280 


002B 


00C2 




DC 


/00C2 


*A« TO LD 2 


3A003290 


002C 


F0D9 




EOR 


STGRD 


CHG BIT 15 BACK 


3A003300 


0020 


F0D5 




EOR 


STGPN 


CK STARTING PATTERN 


3A003310 


002E 


4320 




BSC 


Z 


IS PATTERN THE SAME 


3A003320 


002F 


3006 




WAIT 


6 


♦ NO 


3A003330 


0030 


C0D4 




LD 


STGHL 


* YFS 


3A003340 


0031 


1801 




SRA 


1 




3A003350 


0032 


4804 




BSC 


E 


USE ONLY 1 ADRS 


3A003360 


0033 


7006 




MDX 


STGIO 


» YES 


3A003370 


0034 


COCO 




LD 


STGLC 


* NO, GET ADRS 


3A003380 


0035 


90D0 




S 


STGRD 


REDUCE ADRS 


3A003390 


0036 


DOCB 




STO 


STGLC 


STORE IN XR 2 


3A003400 


0037. 


9006 




S 


STGPG 


SUB PROG SIZE 


3A003410 


0038 


4830 




8SC 


Z- 


REACHED LAST ADRS 


3A003420 


0039 


70EB 




MDX 


STGl 


* NO 


3A003430 


003A 


COCA 


STGIO 


LD 


STGHL 


♦ YES 


3A003440 


003B 


4804 




BSC 


E 


HALT PROGRAM 


3A003450 


003C 


3002 




WAIT 


2 


* YES 


3A003460 


003D 


70E5 




MDX 


STGO 


* NO 


3A003470 


003F 


003E 


STGPG 
* 


nc 


STGPG 


LAST ADRS OF PROG 


3A003480 
3A003490 






* 




INITIALIZATION ROUTINE 


3A003500 






* 








3A003510 


003F 


C009 


STGBD 


LO 


STGSP 




3A003520 


0040 


00C8 




STO 


STGST 




3A003530 


0041 


C0C5 




LO 


STGRD*l 


BUILD RD BIT SW lOCC 


3A003540 


0042 


1008 




SLA 


8 




3A003550 


0043 


DOC 3 




STO 


STGRD+1 




3A003560 


0044 


C8E1 




LDD 


STC2 


BUILD STO AND LD 


3A003570 


0045 


isna 




RTE 


24 


* WITH XR 2 


3A003580 


0046 


D8DF 




STD 


STG? 




3A003590 


0047 


DnE2 




STD 


STG3 




3A003600 


0048 


6009 


STGRS 


LDX 


STGST 


GO TO PGM START 


3A003610 


0049 


COFE 


STGSP 


LO X 


STGXX-1- 


-STGST 


3A003620 






*f**«^**^****^^^^t*ti*^1i^t********************«****t::^ 


3A003630 


r)04A 


0000 




DC 





SPACE FILLER 


3A003640 


004B 


0040 




DC 


/0040 


THE LAST FIVE WORDS ARE 


3A003650 


004C 


9000 




DC 


/9000 


♦ USED FOR PROGRAM 


3A003660 


0040 


2000 




DC 


/2000 


* IDENTIFICATION. THREE 


3A003670 


004E 


2000 




DC 


/2000 


* FOR THE PID AND TWO FOR 


3A003680 


004F 


1000 




DC 


/lOOO 


* SEQUENCE. 


3A003690 



J 



03A0-0 



DATE 
EC NO, 



15FEB68 
420403 



25JUL69 
571053 



PROG ID 
PAGE 



03A0-0 
3A 
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6.02 CONSOLE 
PRINTER 



PRELOAD SWS 



B. LOADING 

C. WAITS 



0. RESTART 



E. COMMENTS 



* 

1. THE PROGRAM PRINTS ALTERNATE CHARACTERS OR 
EXECUTES ALTERNATE CONTROL FUNCTIONS WHICH 
HAVE BEEN SELECTED IN THE BIT SWITCHES. 

2. AN OPTION IS AVAILABLE TO SET UP A VARIABLE 
DELAY BETWEEN XIO WRITE EXECUTIONS- 
AN OPTION IS AVAILABLE TO HALT THE PROGRAM 
AFTER THE COMPLETION OF THE EXECUTION OF 
AN ALTERNATE XIO SEQUENCE. 



3, 



2. 



IF DELAY IS DESIRED, SET DELAY CONTROL 
VALUE IN BIT SWITCHES 1 THRU 13. 
♦NOTE* SWS 1 THRU 13 ALL ON, MAX DELAY. 
SWS I THRU 13 ALL OFF, NO DELAY. 
IF A WAIT AFTER EACH PROGRAM PASS IS 
DESIRED, TURN ON BIT SWITCH 15. 



0000 






0000 





6012 


0001 





0001 


0002 





0006 


0003 





003A 


0004 





0006 


0005 





9000 


0006 





0000 


0007 





FOlO 


0008 





0000 


0009 





601D 


OOOA 





0000 


OOOB 





0000 


OOOC 





002C 


OOOD 





1810 


OOOE 





OOFA 


OOOF 





7012 


0010 





3002 


0011 





700F 



* 
* 

* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 

* 
* 

* 

* 

* 
* 

* 
* 
* 

* 

* 
*******♦****♦»**♦****♦♦♦**♦**♦**♦******»*«***♦***** 

ORG 

CPBGN LDX CPBLO *A* TO LDX CPRDS /6024 

CPONE DC 1 CONSTANT ONE 

CPBSW DC CPDSW BIT SW SAVE AREA 

DC /003A *A* TO /3A00 RD BIT SW 

CPWRT DC CPDSW CHARACTER ADDRESS 

DC /9000 *A* TO /0900 XIO PRINT 

CPDSW DC *-* BIT SW READIN AREA 

DC /FOlO *A* TO /OFOl XIO SENSE 

CPSET DC *-* SW OPTION/DELAY SAVE 

CPCTL LDX CPRDS 2N0 CHAR SW/RESFT MOD 

DC *-* 

CPDSV DC *-* DSW SAVE AREA 

DC CPIN4 INTERRUPT ADDRESS 

CPALT SRA 16 CLR 2ND CHAR SW 

STO CPCTL » 

MDX CPSEN GO CHK IF PRINT BUSY 

WAIT 2 COMPLETED PROG PASS 

MDX CPSEN-1 RESTART PROGRAM 



LOAD IPL FROM CARD OR PAPER TAPE. 

SET DESIRED CHAR/CONTROL CODES IN SIT SWITCHES 
THRU 15. SEE PAGE 2 FOR BIT SW CODES. 

1ST CHAR/CONTROL IN SWS THRU 7. 

2ND CHAR/CONTROL IN SWS S THRU 15. 
DEPRESS START. 

NORMAL PROGRAM WAIT IF 1 PASS OPTION HAS BEEN 
SELECTED. DEPRESS START TO MAKE ANOTHER PASS. 

NO INTERRUPT GENERATED AFTER XIO WRITE 
COMMAND WAS GIVEN- SEE COMMENTS. 

1. TO RESTART PROGRAM OR RESET INITIAL PRELOAD 
SWITCH SETTINGS, DEPRESS IMMEDIATE 

STOP AND RESET PUSH BUTTONS. 

2. SET DESIRED PRELOAD BIT SWITCH SETTINGS. 

3. DEPRESS START. 

1. LAST DSW SENSED IS DISPLAYED IN THE Q REG. 

2. IF PROGRAM LOOPS, CHECK Q REG FOR NOT RDY 
OR BUSY DSW BITS BEING ON. 

3. TO RUN PROGRAM WITH INTERRUPT DFLAy SH ON 
OR TO BYPASS THE INTERRUPT WAIT, LOAD /602D 
INTO LOCATION /002A AND DO A PROGRAM RESTART. 
TO SET UP LOOP TO EXECUTE XIO, LOAD /602D 
INTO LOCATION /002A AND LOAD /lOOO INTO 
LOCATION /0031 AND DO A PROGRAM RESTART. 



4. 



3A003710 

3A003720 

3A003730 

3A003740 

3A003750 

3A003760 

3A003770 

3A003780 

3A003790 

3A003800 

3A003810 

3A003820 

3A003830 

3A003840 

3A003850 

3A003860 

3A003870 

3A003880 

3A003890 

3A003900 

3A003910 

3A003920 

3A003930 

3A003940 

3A003950 

3A003960 

3A003970 

3A003980 

3A003990 

3A004000 

3A004010 

3A004020 

3A004030 

3A004040 

3A004050 

3A004060 

3A004070 

3A004080 

3A004090 

3A004100 

3A004110 

3A004120 

3A004130 

3A004140 

3A004150 

3A004160 

3A004170 

3A004180 

3A004190 

3A004200 

3A004210 

3A004220 

3A004230 

3A004240 

3A004250 

3A004260 

3A004270 

3A0042a0 

3A004290 

3A004300 

3A004310 

3A004320 

3A004330 

3A004340 

3A004350 

3A004360 

3A004370 

3A004380 



0012 


C0F2 


CP8L!) LD 


CPWRT£1 


BUILD WRITF lOCC 


3A004390 


0013 


1304 


SRA 


4 


* 


3Aa04400 


0014 


nOFO 


STO 


CPWRTCl 


« 


3A004410 


0015 


COFl 


n 


CPOSWKl 


BUILD SENSE RESFT 


3A004420 


0016 


1804 


SRA 


4 


* osH incc 


3A004430 


0017 


DOEF 


STO 


CPOSWSl 


* 


3A004440 


0018 


COEA 


LD 


CP3SW£1 


BUILD READ BIT SW 


3A004450 


0019 


1008 


SLA 


8 


* lOCC 


3A004460 


OOIA 


D0E8 


STO 


CPRSWSl 


* 


3A004470 


0018 


COFD 


LO 


CPCTL 


SET UP RESET AND 


3A004480 


OOIC 


D0F3 


STO 


CPBGN 


* START BRANCH 


3A004490 


0010 


08F4 


CPRDS xin 


CPBSW 


READ BIT SWS FOR 


3A004500 


00 IE 


C0E7 


LO 


CPDSW 


* PROG OPTS/DELAY 


3A004510 


OOIF 


D0F8 


STO 


CPSET 


* 


3A004520 


0020 


3001 


WAIT 


1 


SET CHARS IN SWS 


3A004530 


0021 


O8E0 


XIO 


CPBSW 


READ BIT SWS 


3A004540 


0022 


C8E7 


CPS^N LID 


CPDSV-1 


LOAD LAST DSW IN 


3A004550 


0023 


08E2 


XIO 


CPDSW 


CHK DEVICE NOT BUSY 


3A004560 


0024 


D0E6 


STO 


CPDSV 


* OR NOT READY AND 


3A004570 


0025 


1004 


SLA 


4 


* SAVE DSW 


3A004580 


0026 


4820 


8SC 


z 


* 


3A004590 


002 7 


70FA 


MDX 


CPSEN 


* 


3A004600 


0028 


C8E1 


LDD 


CPDSV-1 


LOAD LAST DSW IN Q 


3A004610 


0029 


08DA 


xm 


CPWRT 


WRITE CHARACTER 


3A004620 


002A 


3003 


WAIT 


3 


WAIT FOR INTERUPT 


3A004630 


002B 


7006 


MDX 


CPRET 


BRANCH TO DELAY 


3A004640 


002C 


0000 


CPIN4 DC 


*-* 


INTERRUPT LEVEL 4 


3A004650 


0020 


0308 


XIO 


CPDSW 


SENSE RESET DSW 


3A004660 


002E 


DODC 


STO 


CPDSV 


SAVE DSW 


3A004670 


002F 


CROB 


LOD 


CPOSV 


LOAD DSW INTO Q RFG 


3A004680 


0030 


4850 


BOSC 


- 


RESET INT LEVEL 


3A004690 


0031 


70F8 


MOX 


CPIN4CI 


RESENSE DSW 


3A004700 


0032 


0807 


CPRET LDD 


CPDSV-1 


LOAD LAST DSW IN Q 


3A004710 


0033 


CO 04 


LO 


CPSET 


SET UP DELAY AND 


3A004720 


0034 


13 04 


SRA 


4 


♦ EXECUTE DELAY 


3A004730 


0035 


1003 


SI- A 


3 


* 


3A004740 


0036 


qocA 


CPLOP S 


CPONE 


* 


3A004750 


0037 


4810 


3SC 


- 


* 


3A004760 


0038 


70FD 


MDX 


CPLOP 


« 


3A004770 


0039 


COCC 


LO 


CPDSW 


LD, SET UP 2ND CHAR 


3A004780 


003A 


1008 


SLA 


8 


* 


3A004790 


0038 


DOCA 


STO 


CPDSW 


* 


3A004800 


003C 


COCC 


LO 


COCTL 


CHK IF 2N0 CHAR SW 


3A004810 


003D 


4820 


RSC 


Z 


* OFF 


3A004820 


003E 


70CE 


MDX 


CPALT 


NO, BRANCH 


3A004830 


003F 


68C9 


STX 


CPCTL 


YES, SET 2ND CHAR SW 


3A004840 


0040 


C0C7 


LO 


CPSFT 


CHK 1 PASS OPTION SW 


3A004850 


0041 


4804 


BSC 


E 


* 


3A004860 


0042 


70CD 


MDX 


CPALTf,3 


SW ON, GO TO WAIT ? 


3A004870 


0043 


70DD 


MDX 


CPSEN-1 


SW OFF, LOOP PROGRAM 


3A004880 






*************************************************** 


3A004890 


0044 


0000 


DC 





SPACF FILLER 


3A00490D 


0045 


0000 


DC 





* 


3A004910 


0046 


0000 


DC 





* 


3A004920 


004 7 


0000 


DC 





* 


3A004930 


0048 


0000 


or 





* 


3A004940 


0049 


0000 


DC 





* 


3 AO 04950 


004A 


0000 


nc 





♦ 


34004960 


0048 


0040 


DC 


/0040 


THE LAST FIVE WORDS ARE 


3A004970 


004C 


9000 


OC 


/9000 


* USED FOR PROGRAM 


3A0049aO 


0040 


2000 


DC 


/2000 


* IDENTIFICATION. THRF= 


3A004990 


004F 


?000 


DC 


/2000 


* FOR THE "ID AND TWO FOR 


3AO05O0O 


004F 


0300 


DC 


/0800 


* SEQUENCE. 


3A005010 



DATE 
EC NO. 



15FEB68 
420403 



25JUL69 
571053 



PROG ID 


03A0-0! 


DATE 


15FEB68 


25JUL69 


PAGE 


4 


EC NO. 


420403 


571053 



PROG 10 
PAGE 
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6.03 KEYBOARD 



A. PRELOAD SWS 

a. LOADING 

C. WAITS 1 



D. RESTART 



COMMENTS 



0000 






0000 





6024 


0001 





0001 


0002 





0004 


0003 





003A 


0004 





6032 


0005 





FOlO 


0006 





0000 


0007 





COOO 


0008 





OOOA 


0009 





AOOO 


OOOA 





0000 


OOOB 





0000 


OOOC 





0011 


0000 





C8FC 


OOOE 





1800 


OOOF 





08FA 


0010 





7011 


0011 





0000 


0012 





08EF 


0013 





08F0 


0014 





00F6 


0015 





1001 


0016 





4850 


0017 





7001 


0018 





7003 


0019 





1001 


OOIA 





4850 


DATE 15FEB68 25JUL&9 


fC NO. 420403 571053 



* 

1. THE PROGRAM SELECTS KEYBOARD AND DISPLAYS 
THE CHARACTER READ OR THE OSH SENSED HHEN A 
KEY IS DEPRESSED. 

2. THE PROGRAM ALSO CHECKS THE INTERRUPT REQUEST 
KEY OPERATION. 

3. AN OPTION IS AVAILABLE TO HALT PROGRAM BEFORE 
A KEY IS DEPRESSED, OR LOOP IN A SELECT 
KEYBOARD AND SENSE OSW MODE. 

4. SEE PAGE 2 Ft» KEYBOARD CHAR COOES. 



14 OFF - 

15 ON — 



* 

* 

« 

* 

* 
« 
* 
* 
* 
* 
* 

* 

* 

* 

* 
* 

***♦♦•*•♦*♦•*♦**♦*♦*****♦*♦**♦»**♦******♦♦♦**♦♦**** 



NONE, SWITCHES HAY BE CHANGED AT ANY TIME. 
LOAD IPL FROM CARD OR PAPER TAPE. 

SET DESIRED PROGRAM OPTIONS IN BIT SWS 14 AND 15, 

14 ON — DISPLAY LAST CHAR READ IN Q REG. 
DISPLAY LAST DSW IN Q REG. 
WAIT AFTER EACH PROGRAM PASS. 

15 OFF - LOOP IN SELECT KEYBOARD AND SENSE 

DSW MODE. 
DEPRESS START. 

NORMAL PROGRAM WAIT IF BIT SW 15 IS ON. SELECT 
LIGHT SHOULD BE ON. 

LAST CHAR READ AND LAST OSW ARE DISPLAYED IN 
ACCUMULATOR OR REG, DEPENDING ON BIT SW 14. 
DEPRESS DESIRED KEYBOARD KEY OR DEPRESS INT. REQ 

1. TO RESTART PROGRAM, DEPRESS IMMEDIATE STOP 
AND RESET PUSH BUTTONS. 

2. DEPRESS START. 



1. 



LAST DSW SENSED OR LAST CHARACTER READ IS 
DISPLAYED IN THE REG. SEE WAIT I. 
2. TO RUN PROGRAM WITH INTERRUPT DELAY SW ON, 
EXECUTE BIT SW 15 OFF OPTION. 



ORG 
KYBGN LDX 
KYONE DC 
KYBSW DC 
DC 
KYOSW LDX 

DC 
KYSEL DC 
DC 
KYRD DC 
DC 
KYKEY DC 
KYDSV DC 
DC 
KYOCH LDD 
RTE 
STD 
MDX 
KYIN4 DC 
XIO 
XIO 
STO 
SLA 
BOSC 
HOX 
MDX 
KYREO SLA 
BOSC 





KYBLD 

I 

KYOSW 

/003A 

KYRST 

/FOlO 



/COOO 

KYKEY 

/AOOO 

*-♦ 

*-♦ 

KYIN4 

KYKEY 

16 

KYKEY 

KYDSP 

*-♦ 

KYBSW 

KYOSW 

KYDSV 

1 

KYREQ 
KYRDW 
1 



*A* TO /6032 LOX KYRST 

CONSTANT I 

BIT SW SAVE AREA 
*A* TO /3A0O RO BIT SWS 

RESET VECT/BIT SWS 
*A* TO /OFOl XIO SENSE OSW 

*A* TO /OCOO XIO SEL KYBO 
KEYED RO/IN AREA 

♦A* TO /OAOO XIO KEY RD 
KEYED RD/IN AREA 
LAST DSW SENSED 
INTERRUPT ADOR 
LOAD LAST CHAR READ 
SWAP LAST CHAR/DSW 



INTERRUPT ENTRY 

READ BIT SWS 

SENSE RESET OSW 

SAVE DSW 

CK IF RESPONSE 

♦ 

NO, CHK IF REQUEST 

YES, READ CHAR CODE 

CHECK IF REQUEST 



3A005030 
3A005040 
3A005050 
3A005b60 
3A005070 
3A005080 
3A005090 
3A005100 
3A005110 
3A005120 
3A005130 
3A005140 
3A005150 
3A005160 
3A005170 
3A005180 
3A005190 
3A005200 
3A005210 
3A005220 
3A005230 
3A005240 
3A005250 
3A005260 
3A005270 
3AO0528O 
3A005290 
3A005300 
3A005310 
3A005320 
3A005330 
3A005340 
3A005350 
3A005360 
3A005370 
3A0053aO 
3A005390 
3A005400 
3A005410 
3A005420 
3A005430 
3A005440 
3A005450 
3A005460 
3A005470 
3A005480 
3A005490 
3A0055O0 
3A005510 
3A005520 
3A005530 
3A005540 
3A005550 
3A005560 
3A005570 
3A005580 
3A005590 
3A005600 
3A005610 
3A005620 
3A005630 
3A005640 
3A005650 
3A005660 
3A005670 
3A005680 
3A005690 
3A005700 



PROG ID 
PAGE 



OOIB 





701A 




MDX 


KYSET 


NO 


. RESENSE DSW 


3A005710 


OOIC 





08EB 


KYRDW 


XIO 


KYRD 


YES, READ LAST CHAR 


3A005720 


0010 





08E8 




XIO 


KYSEL 


SELECT KEYBOARD 


3A005730 


OOIE 





C0E5 




LD 


KYOSW 


CK 


IF CHAR/DSW IN 


3A005740 


OOIF 





lOOE 




SLA 


14 


* 




3A005750 


0020 





4828 




BSC 


CZ 


♦ 




3A005760 


0021 





70EB 




MDX 


KYOCH 


DISPLAY CHAR IN 


3A005770 


0022 





C8E7 


KYDSP 


LDD 


KYKEY 


DISPLAY DSW IN Q 


3A005780 


0023 





7012 




MDX 


KYSET 


GO 


SELECT KEYBOARD 


3A005790 


0024 





CODE 


KYBLD 


LO 


KYBSWEl 


BUILD lOCCS AND 


3A005800 


0025 





1008 




SLA 


8 


* 


RESET/START VECT 


3A005810 


0026 





DODC 




STO 


KYBSWei 


» 




3AO05820 


0027 





GOOD 




LO 


KYDSW61 


* 




3A005830 


0028 





1804 




SRA 


4 


* 




3A005840 


0029 





DOOB 




STO 


KYDSWSl 


* 




3A005850 


002A 





CODC 




LD 


KYSELGl 


* 




3A005860 


002B 





1804 




SRA 


4 


* 




3A005870 


002C 





OOOA 




STO 


KYSELEl 


* 




3A005880 


002D 





CODS 




LO 


KYROei 


* 




3A005890 


002E 





1804 




SRA 


4 


* 




3A005900 


002F 





D0D9 




STO 


KYRD£1 


* 




3A005910 


0030 





C003 




LO 


KYOSW 


♦ 




3A005920 


0031 





DOGE 




STO 


KYBGN 


♦ 




3A005930 


0032 





3001 


KYRST 


WAIT 


1 


SET PROGRAM OPTIONS 


3A005940 


0033 





0802 




XIO 


KYSEL 


SELECT KEYBOARD 


3A005950 


0034 





1010 




SLA 


16 


CL 


LAST CHAR KEYED 


3A005960 


0035 





D0D4 




STO 


KYKEY 


* 




3A005970 


0036 





08CB 


KYSET 


XIO 


KYBSW 


RO 


BIT SWS FOR OPTS 


3A005980 


0037 





cncc 




LD 


KYDSW 


CHK IF SEL/RO LOOP 


3A005990 


0038 





lOOF 




SLA 


15 


* 




3A006000 


0039 





4810 




BSC 


- 


* 


OPTION IS SELECTED 


3A006010 


003A 





7007 




MOX 


KYIN4ei 


YES, GO SENSE OSW 


3A006020 


003B 





C8CE 




LDD 


KYKEY 


DISPLAY CHAR/DSW IN Q 


3A006030 


003C 





3002 




WAIT 


2 


DEPRESS DESIRED KEY 


3A006040 


0030 





70D4 




MOX 


KYIN4f;i 


GO 


SENSE DSW 


3A006050 








***♦♦**♦**»»**»*♦♦*«*»***************♦*********♦*** 


3A006060 


003E 





0000 




DC 





SPACE FILLER 


3A006070 


003F 





0000 




DC 





* 




3A006080 


0040 





0000 




DC 





» 




3A006090 


0041 





0000 




DC 





* 




3A006100 


0042 





0000 




DC 





* 




3A006110 


0043 





0000 




DC 





* 




3A006120 


0044 





0000 




DC 





* 




3A006130 


0045 





0000 




DC 





* 




3A006140 


0046 





0000 




DC 





* 




3A006150 


0047 





0000 




DC 





* 




3A006160 


0048 





0000 




DC 





* 




3A006170 


0049 





0000 




DC 





* 




3A006180 


004A 





0000 




DC 





* 




3A006190 


004B 





0040 




OC 


/OGAO 


THE LAST FIVE WORDS ARE 


3A006200 


004C 





9000 




DC 


/9000 


* 


USED FOR PROGRAM 


3A006210 


0040 





2000 




DC 


/2000 


♦ 


IDENTIFICATION. THREE 


3A006220 


004E 





2000 




DC 


/2000 


» 


FOR THE PID AND TWO FOR 


3A006230 


004F 





0040 




DC 


/0040 


* 


SEQUENCE. 


3A006240 



03AO-0 

5 
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6.04 PAPER TAPE 
PUNCH 



A. PRELOAD SWS 



B. LOADING 

C. WAITS 



D. RESTART 



E. COMMENTS 



0000 






0000 





600D 


0001 





0001 


0002 





0006 


0003 





003A 


0004 





0006 


0005 





0019 


0006 





0000 


0007 





OOIF 


0008 





0000 


0009 





601C 


OOOA 





0000 


OOOB 





0000 


OOOC 





0033 


0000 





C0F7 



« 

1. THE PROGRAM PUNCHES ALTERNATE CHARACTERS 
WHICH HAS BEEN SELECTED IN THE BIT SWS, 
OR A BINARY PATTERN. 

2. AN OPTION IS AVAILABLE TO SET UP A VARIABLE 
DELAY BETWEEN XIO PUNCH EXECUTIONS. 

3. AN OPTION IS AVAILABLE TO HALT THE PROGRAM 
AFTER THE COMPLETION OF THE EXECUTION OF 
A PROGRAM PASS. 

4. SEE PAGE 2A FOR BIT SW CONTROL BINARY PATTERN. 

5. THIS TAPE MAY BE USED IN THE PAPER TAPE 
READER SCOPE LOOP, 6.05. 



2. 



♦ 

* 

* 

* 

* 
* 
* 
* 
* 
* 
* 

* 

* 
* 
* 
* 
* 

« 

* 
* 
* 

* 
* 

* 
* 

* 
« 
« 

ORG 

TPBGN LDX TPBLO *A* TO LOX TPRDS /6024 

TPONE DC 1 CONSTANT ONE 

TPBSW DC TPDSW BIT SW SAVE AREA 

DC /003A *A* TO /3A00 RD BIT SWS 

TPWRT DC TPDSW CHARACTER ADDRESS 

DC /0019 *A* TO /1900 XIO PUNCH 

TPDSW DC *-♦ BIT SW READIN AREA 

DC /OOIF *A* TO /IFOl SENSE DSW 

TPSET DC *-♦ SW OPTION/DELAY SAVE 

TPCTL LDX TPRDS 2ND CHAR SW/RESET MOO 

TPlOO DC *-* *A* TO /OlOO PATT BUILD 

TPDSV DC *-* DSW SAVE AREA 

DC TPIN4 INTERRUPT ADDRESS 

TPBLD LD TPWRTei BUILD WRITE lOCC 



IF DELAY IS DESIRED, SET DELAY CONTROL 
VALUE IN BIT SWITCHES I THRU 13. 
*NOTE* SWS 1 THRU 13 ALL ON, MAX DELAY. 
SWS 1 THRU 13 ALL OFF, NO DELAY. 
IF A BINARY PATTERN IS DESIRED, TURN ON 
BIT SWITCH 14. 

IF A WAIT AFTER EACH PROGRAM PASS IS 
DESIRED, TURN ON BIT SWITCH 15. 



LOAD IPL FROM CARD OR PAPER TAPE. , 

SET DESIRED CHARACTERS TO BE PUNCHED IN BIT SWS 
THRU 15. SEE PAGE FOR BIT SW COOES. 

1ST CHARACTER IN SWS THRU 7. 

2ND CHARACTER IN SWS 8 THRU 15. 
MAKE PAPER TAPE PUNCH READY. 
DEPRESS START. 

NORMAL PROGRAM WAIT IF 1 PASS OPTION HAS BEEN 
SELECTED. DEPRESS START TO HAKE ANOTHER PASS. 

NO INTERRUPT GENERATED AFTER XIO PUNCH 
COMMAND WAS GIVEN. SEE COMMENTS. 



TO RESTART PROGRAM OR RESET INITIAL PRELOAD 

SWITCH SETTINGS, DEPRESS IMMEDIATE 

STOP AND RESET PUSH BUTTONS. 

SET DESIRED PRELOAD BIT SWITCH SETTINGS. 

DEPRESS START. 



2. 
3. 



1. LAST DSW SENSED IS DISPLAYED IN THE Q REG. 

2. TO RUN PROGRAM WITH INTERRUPT DELAY SW ON 
OR TO BYPASS THE INTERRUPT WAIT, LOAD /6034 
INTO LOCATION /0031 AND DO A PROGRAM RESTART. 

3. TO SET UP LOOP TO EXECUTE XIO, LOAD /6034 
INTO LOCATION /0031 AND LOAD /603A INTO 
LOCATION /0039 AND DO A PROGRAM RESTART. 



3A006260 
3A006270 
3A006280 
3A006290 
3A006300 
3A006310 
3A006320 
3A006330 
3A006340 
3A006350 
,3A006360 
3A006370 
3A006380 
3A006390 
3A006400 
3A006410 
3A006420 
3A006430 
3A006440 
3A006450 
3A006460 
3A006470 
3A006480 
3A006490 
3A006500 
3A006510 
3A006520 
3A006530 
3A006540 
3A006550 
3A006560 
3A006570 
3A006580 
3A006590 
3A006600 
3A006610 
3A006620 
3A006630 
3A006640 
3A006650 
3A006660 
3A006670 
3A006680 
3A006690 
3A006700 
3A006710 
3A006720 
3A006730 
3A006740 
3A006750 
3A006760 
3A006770 
3A006780 
3A006790 
3A006800 
3A006810 
3A006820 
3A006830 
3A006840 
3A006850 
3A006860 
3A006870 
3A006880 
3A006890 
3A006900 
3A006910 
3A006920 
3A006930 



OOOE 





1008 




SLA 


8 


♦ 


3A006940 


OOOF 





D0F5 




STO 


TPWRTEI 


t 


3A006950 


0010 





C0F6 




LD 


TPDSW61 


BUILD SENSE RESET 


3A006960 


0011 





1008 




SLA 


8 


* 


3A006970 


0012 





E8EE 




OR 


TPONE 


♦ 


3A006980 


0013 





OOF 3 




STO 


TPDSWEl 


« 


3A006990 


0014 





COEE 




LO 


TPBSW&l 


BUILD READ BIT SW 


3A007000 


0015 





1008 




SLA 


8 


* lOCC 


3A007010 


0016 





OOEC 




STO 


TPBSW61 


♦ 


3A007020 


0017 





C0E9 




LO 


TPONE 


BUILD PATTERN WORD 


3A007030 


0018 





1008 




SLA 


8 


* 


3A007040 


0019 





DOFO 




STO 


. TPlOO 


4> 


3A007050 


OOIA 





COFF 




LO 


TPCTL 


SET UP RESET AND 


3A007060 


OOIB 





DOE 4 




STO 


TPBGN 


* START BRANCH 


3A007070 


OOIC 





oaE5 


TPRDS 


XIO 


TPBSW 


READ BIT SWS FOR 


3A007080 


0010 





C0E8 




LD 


TPDSW 


* PROG OPTS/DELAY 


3A007090 


OOIE 





D0E9 




STO 


TPSET 


* 


3A007100 


OOIF 





3001 




WAIT 


1 


SET CHARS IN SWS 


3A007110 


0020 





1010 




SLA 


16 


CLR PUNCH WD LOC 


3A007120 


0021 





D0E4 




STO 


TPDSW 




3A007130 


0022 





C0E5 




LD 


TPSET 


CHK PUNCH OPTION 


3A007140 


0023 





lOOE 




SLA 


14 


* 


3A007150 


0024 





4828 




BSC 


CZ 


♦ 


3A007160 


0025 





7002 




MOX 


TPPAT 


BIT 14 ON, PCH PATT 


3A007170 


0026 





ORDB 




XIO 


TPBSW 


READ BIT SWS 


3A007180 


0027 





7005 




MDX 


TPSEN 


GO SENSE DSW 


3A007190 


0028 





CODD 


TPPAT 


LD 


TPDSW 


LOAD PATTERN WORD 


3A007200 


0029 





80E0 




A 


TPlOO 


BUILD NEXT WORD 


3A007210 


002A 





DODB 




STO 


TPDSW 


* 


3A007220 


002B 





1010 


TPALT 


SLA 


16 


CLR 2ND CHAR SW 


3A007230 


002C 





DODC 




STO 


TPCTL 


* 


3A007240 


0020 





08DB 


TPSEN 


XIO 


TPDSW 


SENSE DSW 


3A007250 


002E 





DODC 




STO 


TPDSV 


SAVE DSW 


3A007260 


002F 





C8DA 




LDD 


TPDSV-1 


LOAD LAST DSW IN Q 


3A007270 


0030 





0BD3 




XIO 


TPWRT 


PUNCH CHARACTER 


3A007280 


0031 





3003 




WAIT 


3 


WAIT FOR INTERUPT 


3A007290 


0032 





7007 




MDX 


TPRET 


BRANCH TO DELAY 


3A007300 


0033 





0000 


TPIN4 


DC 


♦-♦ 


INTERRUPT LEVEL 4 


3A007310 


0034 





C8D5 




LDD 


TPDSV-1 


LOAD LAST DSW INTO Q 


3A007320 


0035 





08D0 




XIO 


TPDSW 


SENSE RESET DSW 


3A007330 


0036 





D0D4 




STO 


TPDSV 


SAVE OSW 


3A007340 


0037 





1003 




SLA 


3 


CK IF PUNCH RESPONSE 


3A007350 


0038 





4850 




BOSC 


- 


RESET INT LEVEL 


3A007360 


0039 





70FA 




MDX 


TPIN4SI 


RFSENSE DSW 


3A007370 


003A 





COCO 


TPRET 


LD 


TPSET 


SET UP DELAY AND 


3A007380 


003B 





IBOl 




SRA 


1 


♦ EXECUTE DELAY 


3A007390 


003C 





90C4 


TPLOP 


S 


TPONE 


* 


3A007400 


0030 





4810 




BSC 


- 


* 


3A007410 


003E 





70FD 




MDX 


TPLOP 


« 


3A007420 


003F 





C0C9 




LO 


TPCTL 


CHK IF 7ND CHAR SW 


3A007430 


0040 





4818 




BSC 


6- 


♦ CLEARED 


3A007440 


0041 





7004 




MOX 


TPNOT 


YES 


3A007450 


0042 





C0C3 




LO 


TPDSW 


NO, SET UP 2ND CHAR 


3A007460 


0043 





1008 




SLA 


8 


* 


3A007470 


0044 





DOCl 




STO 


TPDSW 


* 


3A007480 


0045 





70E5 




MOX 


TPALT 


PUNCH 2N0 CHAR 


3A007490 


0046 





6RC2 


TPNOT 


STX 


TPCTL 


SET 2N0 CHAR SW 


3A007500 


0047 





COCO 




LD 


TPSET 


CHK I PASS OPTION SW 


3A007510 


0048 





4804 




BSC 


E 


« 


3A007520 


0049 





3002 




WAIT 


? 


COMPLETED PROG PASS 


3A007530 


004A 





70D7 




MOX 


TPROSSA 


LOOP PROGRAM 


3A007540 








t*M***************1r*'^****:***i'**'******************** 


3A007550 


004B 





0040 




DC 


/0040 


THE LAST FIVE WORDS ARE 


3A007560 


004C 





9000 




DC 


/9000 


* USED FOR PROGRAM 


3A007570 


004D 





2000 




DC 


/2000 


* IDENTIFICATION. THREE 


3A007580 


004E 





2000 




DC 


/2000 


♦ FOR THE PID AND TWO FOR 


3A007590 


004F 





0020 




DC 


/0020 


* SEQUENCE. 


3A007600 



DATE 
EC NO. 



15FEB68 
420403 



25 JUL 69 
571053 
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6.05 PAPER TAPE 
READER 



A. PRELOAD SWS 



P. LOADING 

C. WAITS ) 



0. RESTART 



E. COMMENTS 



nooo 






0000 





6021 


0001 





607F 


0002 





0809 


0003 





00? 1 


0004 





1001 


0005 





4850 


0006 





70FB 


0007 





0806 


0OO8 





COIR 


0009 





7008 


OOOA 





0000 


OOOB 





FOOO 


OOOC 





0001 


OOOD 





F808 



* 

* 

* 

* 

* 

* 

* 
* 
* 
* 
* 
* 
* 
* 
« 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
« 
* 
* 



1. THE PROGRAM READS CHARACTERS WHICH HAVE BEEN 
PUNCHED IN THE TAPF AND COMPARES THFM WITH 
A BINARY PATTERN OR ALTERNATE BIT SWITCH 
CHARACTERS. 

2. AN OPTION IS AVAILABLE TO SET UP A VARIABLE 
DELAY BFTWEFN XIO READ EXECUTIONS. 

3. AN OPTION IS AVAII ABLE TO BYPASS WAIT 6 
ON COMPARE ERRORS. 



1. IF DELAY IS DESIRFD, SET OFLAY CONTROL 
VALUE IN BIT SWITCHES 1 THRU 13. 
*NOTE* SWS 1 THRU 13 ALL ON, MAX DELAY. 

SWS 1 THRU 13 ALL OFF, NO DELAY, 

2. IF A BINARY PATTERN IS DESIRED, TURN ON 
BIT SWITCH 14. 

3. IF BYPASS COMPARE ERROR WAIT 6 OPTION IS 
DESIRED, TURN ON BIT SWITCH 15. 

LOAD IPL FROM CARD OR PAPFR TAPE. 

LOAD PAPER TAPE INTO "EAOfR. SFE PAGE ?A FOR 

LOADING A BINARY PATTERN TAPE. 

PLACE 1ST CHARACTER TO BF READ FROM THE TAPE, 

JUST BEHIND SENSING PINS. 

SET DESIRFD CHARACTERS TO COMPARE IN BIT SWS 

THRU 15. SEE PAGE 2A FOR SIT SW CODES. 

1ST CHARACTER IM SWS THRU 7. 

7ND CHARACTER IN SWS P THRU 15. 
bEPRESS START. 

NO INTERRUPT GENERATED AFTER XIO TAPF ADVANCE 
COMMAND WAS GIVEN. SEE COMMENTS. 

COMPARE ERROR. ACCUMULATOR CONTAINS THE CHAR 
READ. THIS CHARACTER IS NOW LOCATED 1 CHARACTER 
PAST THP SENSING PINS. 

TO READ/COMPARE NEXT CHARACTER, DEPRESS START. 
TO LOOP !JN COMPARE ERROR, SPF PRELOAD SWS. 



* 1. TO RESTART PROGRAM OP RESET INITIAL PRFLOAO 

DFPRESS IMMEDIATE 
PUSH BUTTONS. 

D BIT SWITCH SETTINGS. 



IS fVISPLAYFD IN THE Q RFG. 
WITH INTERRUPT DELAY SW ON 
E INTERRUPT WAIT, LOAD /6002 
0042 AND DO A PROGRAM RESTART 
TO CXFCUTE XIO, LOAD /6002 
004? AND LOAD /601A INTO 
AND 00 A PROGRAM RESTART- 

*A* TO /602F LDX TRRST 
INTERRUPT FNTRY 
SENSE DSW 
SAVE DSiV 

CK FOR DP COMPLETE 
* 

NO, RESENSE DSW 

YES, READ TAPF 

COMPARE TO EXPECTED 

GO TO TRI4A 

BUILD CONSTANT 
*A* TO /ICOO XIO ADVANCE 

INT ADR/CONSTANT 1 
*A* TO /IFOl XIO SENSE 



* 


SWITCH 


SETTINGS 


* 


STOP AND RESET 


* ?. 


SET OF 


SIRED PRE 


* 3. 

9JC 


DEPPFS 


S START. 


* 1. 


LAST ri 


SW SrNSFD 


* 2. 


TO RUN 


PROGRAM 


* 


OR TO 


BYPASS TH 


* 


INTO L 


OCATION /I 


* 3. 


TO SFT 


UP LOOP 


* 


INTO LOCATION /i 


* 


L OC A T r 


HN /oon6 




ORG 





TRBGN 


LDX 


TRRLD 


TRIN4 


LDX 


T'^RST 




XTC 


TRDSW 




STO 


TRDSV 




SLA 


1 




BOSC 


- 




MDX 


TR IN4£1 




XIO 


TRRD 




LD 


TPARA 




MOX 


Tkl4A 


TR Ai)V 


DC 


/DO on 




DC 


/FOOO 


TBDSW 


OC 


/OOOl 




DC 


/F8 08 



* 3A007620 
3A007630 
3A007640 
3A007650 
3A007660 
3A007670 
3A007680 
3A007690 
3A007700 
3A007710 
3A007720 
3A007730 
3A007740 
3A007750 
3A007760 
3A007770 
3A007780 
3A007790 
3AO0780O 
3A007810 
3A007820 
3A007830 
3A007840 
3A007850 
3A007860 
3A007870 
3A007880 
3A007890 
3A007900 
3A007910 
3A007920 
3A007930 
3A007940 
3A007950 
3A007960 
3A007970 
3A007980 
3A007990 
3A008000 
3A008010 
3A008020 
3A008030 
3A008040 
3A008050 
3A008060 
3AO08070 
3A00a080 
3A008090 
3A00ai00 
3A008110 
3A008120 
3A008130 
3A008140 
3AO08150 
3A008160 
3A008170 
3A008180 
3A008190 
3ADOa200 
3A008210 
3fl00a?20 
3A0OR230 
3A00B240 
3A008250 
3A008260 
3AOOS270 
3A00a280 
3A00fi290 



OOOE 


r 


1 0024 


OOOF 


G 


1 OOIA 


0010 


i C 


1 0023 


0011 





i 003A 


0012 





1 FOlO 


0013 





4818 


0014 





7005 


0015 





COOB 


0016 





4804 


0017 





7002 


0018 





CHOB 


0019 





3006 


OOIA 





C809 


OOIB 





C005 


OOIC 





1801 


OOID 





90EE 


OOIF 





4810 


OOIF 





70FD 


0020 





7014 


0021 





COFF 


002? 





1008 


002 3 





OOED 


0024 





CDF 3 


0025 





1803 


0026 





i)0E6 


0027 





1008 


0028 





D0F9 


0029 





C8E0 


002A 





18C3 


002B 





DOE 3 


002C 





D8DD 


002D 





C0D3 


002E 





DODl 


002F 





08F0 


0030 





C0F2 


0031 





DOFF 


003? 





3001 


0033 


n 


1010 


0034 


1 


OOEE 


0035 





COEB 


0036 





lOOE 


0037 





48 7 P 


0033 





700F 


0039 





0806 


003A 





COEB 


003B 





4«20 


003C 





7006 


003D 





68E? 


003F 





r0F4 


003F 





lOOB 


0040 





D0r2 


0041 





08C8 


0042 





3005 


004 3 





1010 


0044 





DOEl 


0045 





GOOD 


0046 





1808 


0047 





TDF? 


0048 


n 


CODA 


0049 





8008 


004A 





70F5 


On4B 1 


n 


0040 


004C 





9000 


04D 1 





2000 


004E • 


3 . 


?000 


004F 1 


1 1 


OOIO 



THRO 



TRBSW 



TRI4A 



TRKIP 



TRBLD 
TRIOO 
TRSRW 
TRAP4 
TRDSV 
TRCTL 



TRRST 



TRSTR 



TRALT 



TRNOT 



TRPAT 



OC 

DC 

DC 

DC 

FOR 

BSC 

MDX 

LD 

BSC 

MDX 

LOO 

WAIT 

LDD 

LD 

SRA 

S 

BSC 

MDX 

MDX 

LD 
SLA 

STO 

LD 

SRA 

STn 

SLA 

STO 

LDD 

RTF 

STO 

STD 

LD 

STO 

XIO 

LD 

STO 

WAIT 

SLA 

STf' 

LD 

SLA 

BSC 

MDX 

xir 

LD 

BSC 

MDX 

STX 

LD 

SLA 

STn 

XIO 
WAIT 
SLA 
STO 
LD 
SRA 
MDX 
LD 
A 

MDX 
******** 

DC 
DC 
DC 
DC 
DC 



TRARA 

/OOIA 

TRSBW 

/003A 

TRSBW 

K- 

TRLOP 

TRRLD 

E 

TPLOP- 

TRARA 

6 

TRARA 

TRBLD 

I 

TRPSW 

TRLOP 

TRSTR 

TPBSWS 

8 

TRBSWG 

TRDSWC 

3 

TPDSWS 

8 

TRIOO 

TR ADV 

3 

TPPDKl 

TRADV 

TRIN4 

TRRGN 

TRBSW 

TRSBW 

TRBLD 

1 

16 

TRSBW 

TRBLD 

14 

tr 

TRPAT 
TRBSW 
TRCTL 

7 

TR NOT 
TRCTL 
TRSBW 
8 

TRSBW 
TRADV 
5 

16 

TRCTL 
TRSBW 
8 

TRALT 
TPSBW 
TRIDO 
TR ALTfil 
********* 

/0040 
/90()0 
/?000 
/2000 
/OOIO 



-3 



1 
1 

1 * 



RE AD/ IN A DDR 
*A* TO /lAOO XIO READ 

BIT SW SAVE AODR 
*A* TO /3A00 RO BIT SWS 

* 

* 

OK, GO TO DELAY 

ERR, CK LOOP/ERR OPT 

* 

LOOP/ERR SELECTED 

LD WD READ AND DSW 

COMPARE ERROR WAIT 

LOAD DSW INTO 

SET UP DELAY 

* 

* 

* 

* 

CK ON PATT OPT 

BUILD PROGRAM 
*A* TO /OIOD PATT. BUILD 
*A* TO *-* COMP S/P WORD 
WORD READ 
SAVFD OSW 
ALT CHAR SW 



*A* TC 

*A* TO 

A* TO 



*-* 
*_* 

*-* 



RO SWS DELAY/OPTIONS 
SAVE D^LAY/OPTIONS 
* 

SET CHARACTERS IN SWS 
INITIALIZE S/B WD 



CK 
* 



WHICH PATT OPTION 



BINARY PATT SELECTED 
READ BIT SWS-CHARS 
CK WHICH CHAR 

* 

SEL LEFT CHAK 

SET ALT CHAR SW 

LOAD BIT SWS 

SET UP RIGHT CHAR 

SAVE IN S/B 

ADVANCE TAPE 

WAI T FOR INTERRUPT 

CL ALT CHAR SW 

* 

SET UP »IGHT CHAR 



SET UP BINARY PATT 



***********3f;,!,^<,^^^^<<j^^^^^^^^^^ 

THF LAST FIVE WORDS ARE 

* USED FOR PROGRAM 

* IDENTIFICATION. THREE 

* FOR THE PID AND TWO FOR 

* SEQUENCE. 



3A008300 

3A00a310 

3A008320 

3A008330 

3A008340 

3A008350 

3A00S360 

3A008370 

3A008380 

3A008390 

3A003400 

3A008410 

3A008420 

3A008430 

3A008440 

3A008450 

3A008460 

3A008470 

3A008480 

3A008490 

3A008500 

3A00851O 

3A008520 

3A008530 

3A008540 

3A008550 

3A008560 

3A008570 

3A0085a0 

3A008590 

3A008600 

3A008610 

3A008620 

3A008630 

3A008640 

3A008650 

3A003660 

3A008670 

3A008680 

3A008690 

3A008700 

3A008710 

3A008720 

3A008730 

3A008740 

3A00B750 

3A008760 

3A008770 

3A008780 

3A008790 

3A008800 

3A00a8l0 

3A008820 

36008830 

3A008840 

3A008850 

3A008860 

3A008870 

3A003880 

3A008890 

3A008900 

3A008910 

3A008920 

3A008930 

3A008940 

3A00S950 

3A008960 
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6.06 1442 PUNCH 



A. PRELOAD SWS 

B. LOADING 

C. WAIT 1 



* 

THIS PROGRAM WILL PUNCH THE DATA IN flIT SWITCHES 
O-ll IN ALL COLUMN UNLESS BIT 12 IS ON AND THEN 
ONLY THE FIRST COLUMN IS PUNCHED. THESE CARDS 
MAY BE USED IN THE READER SCOPE LOOP 6.07 AND 
6.11. 



D. RESTART 



E. COMMENTS 



0000 






0000 





6037 


0001 





0003 


0002 





0000 


0003 





0000 


0004 





0003 


0005 





003A 


0006 





0003 


0007 





0011 


0008 





0011 


0009 





A008 


OOOA 





0008 


OOOB 





B818 


OOOC 





0011 


0000 





0029 


OOOE 





OOFO 


OOOF 





3001 


0010 





701F 


0011 





0000 


0012 





08F7 


0013 





1001 


0014 





4850 


0015 





700C 


0016 





08E0 


0017 





COEA 


0018 





80EB 


0019 





D0E8 


OOIA 





F0F3 


OOIB 





4820 


OOIC 





7003 


OOID 





C0E5 



NONE, SWITCHES MAY BE SET AT ANY TIME. 

IPL MODE FROM CARDS OR PAPER TAPE. 

SET DESIRED BIT SWITCHES AS FOLLOWS, 

BIT 15- HALT 



BIT 14- STACKER SELECT 

BIT 13- FEED A CARD 

TERMINATE PUNCHING 
PUNCHING PATTERN 



BIT 12 
TO 11 



* 

* 
* 

* 
* 

* 

* 
* 

* 

* 

* 

* 
* 
* 

« 
« 

* 
* 
* 
*************************************************** 



ONE PASS COMPLETED, PRESS START TO CONTINUE. 

LOST PUNCH INTERRUPT. 

LOST FEED OR INTIATE PUNCH INTERRUPT. 

PRESS IMMEDIATE STOP AND RESET. PRELOADING 
SWITCHES MAY BE SET AS DESIRED. PRESS START. 

1. TO RUN THE PROG WITH INTERRUPT DELAY SWITCH 
ON OR BYPASS THE INTERRUPT WAIT LOAD /601? 
INTO LOCATION /0021 AND /0032 AND RESTART. 

2. TO GET A FASTER LOOP THAN THF ABOVE PLACE 
/70FF IN THE NEXT LOCATION AFTER THE XIO. THF 
XIO WILL BE EXECUTED AFTER EACH BRANCH. 



ORG 
PHFEO LDX 

DC 

PHCTR DC 

PHSWS DC 

PHBSW DC 

DC 

PHPCH DC 

DC 

PHPST DC 

DC 

PHDSW DC 

DC 

PHSTK DC 

DC 

PHK50 DC 

PHI WAIT 

MOX 
PHINT DC 
XIO. 
SLA 
BOSC 
MOX 
XIO 
LD 
A 

STO 
EOR 
BSC 
MDX 
LO 





PHBLD 

/0003 

*-* 

*-* 

/0003 

/003A 

PHSWS 

/OOll 

PHINT 

/A008 

/0008 

/B818 

PHINT 

/002 9 

/OOFO 

1 

PH? 

*-* 

PHDSW 

1 

PH6 

PHBSW 

PHCTR 

PHBSW 

PHCTR 

PHK50 

Z 

PH4 

PHSWS 



*A* TO /600F LDX PHl 
*A* DC /1402 FD A CD 

COLUMN COUNTER 

BIT SWITCH STG 

READ IN ADRS 
*A* DC /3A00 

PCH I/O AREA 
♦A* DC /llOO 

CUL INTR ADRS 
*A* DC /1401 

PCH TERMINATOR 
*A* DC /1703 

OP COMP INTR ADRS 
*A* DC /1480 

80 COLS TIMES 3 

SET BIT SWS 

INTERREPT FNTRY 
SENSE DSW 

COL INTR ON 

* NO, TRY OP COMP 

COLUMN COUNTER 
ADD THREE 

CHECK FOR LAST COLUMN 
IS IT LAST COLUMN 

GET DATA TO BE PUNCHED 



3A008980 

3A008990 

3A009000 

3A009010 

3A009020 

3A009030 

3A009040 

3A009050 

3A009060 

3A009070 

3A009080 

3A009090 

3A 009100 

3A009110 

3A009120 

3A009130 

3A009X40 

3A0O9150 

3A009160 

3A009170 

3A009180 

3A009190 

3A009200 

3A009210 

3A009220 

3A009230 

3A009240 

3A009250 

3A009260 

3A009270 

3A009280 

3A009290 

3A009300 

3A009310 

3A009320 

3A009330 

3A009340 

3A009350 

3A009360 

3A009370 

3A009380 

3A009390 

3A009400 

3A009410 

3A009420 

3A009430 

3A009440 

3A009450 

3A009460 

3A009470 

3A009480 

3A009490 

3A009500 

3A009510 

3A009520 

3A009530 

3A009540 

3A009550 

3A009560 

3A009570 

3A009580 

3A009590 

3A009600 

3A009610 

3A009620 

3A009630 

3A009640 

3A009650 



OOIE 





E8FB 


OOIF 





D0E3 


0020 





08E5 


0021 





3003 


0022 





1003 


0023 





4850 


0024 





6012 


0025 





1010 


0026 





nOOB 


0027 





08DC 


0028 





CODA 


0029 





4804 


002A 





3002 


002B 





1801 


002C 





4 804 


002D 





7005 


002F 





1801 


002F 





4804 


0030 





08CF 


0031 





08D6 


0032 





3005 


0033 





0808 


0034 


n 


COCE 


0035 





1802 


0036 





70F3 


0037 





C012 


0038 





DOC 7 


0039 





COCF 


003A 





1R03 


003B 





OOCD 


T0 3C 





F0C4 


0030 


a 


noc3 


003E 





C0C6 


003F 





1008 


0040 


'1 


00C4 


0041 





C0C9 


0042 





1803 


0043 





00C7 


0044 





C0C2 


0045 





1008 


0046 





noco 


0047 





C0C5 


0048 





1007 


00^9 





DOC 3 


004A 





600F 


004B 





0040 


004C 





9000 


004D 





2000 


004F 





2000 


004F 





0008 



PH4 



PH6 



OR 

STO 

XIO 

WAIT 

SLA 

BOSC 

LOX 

SLA 

STO 

XIO 

LD 

BSC 

WAIT 

SPA 

BSC 

MDX 

SRA 

BSC 

XIO 

XIO 

WAIT 

xin 

LD 
SRA 

MDX 

LO 
STO 
LO 
SRA 
STO 
EOR 
STO 
LO 
SLA 
STO 
LO 
SRA 
STO 
LD 
SLA 
STO 
LD 
SLA 
STO 
PHRES LDX 

DC 
DC 
DC 
PC 
DC 



PH2 



PH8 



* 
PHBLD 



PHDSW 

PHSWS 

PHPCH 

3 

3 

PHINT£1 

16 

PHCTR 

PHBSW 

PHSWS 

E 

2 

1 

F 

PH8 

1 

E 

PHFFD 

PHPST 

5 

PHSTK 

PHSWS 

2 

PH2-1 



PHRE 


PHPS 
3 

PHPS 
PHFF 
PHFF 
PHRS 
8 

PHBS 
PHDS 
3 

PHDS 
PH PC 
8 

PHPC 
PHST 
7 

PHST 
PHI 
****** 

/0 04 
/900 
/200 
/200 
/OOO 



T+1 

T+1 

D£l 
D£l 
W+1 

W + 1 
W+1 

w+1 

H+1 

H+1 
K + 1 

KEl 



* AND OR IN PCH TERM 

* ANS STORE BACK 
PUNCH A COLUMN 
WAIT FOP INTERRUPT 

OP COMP ON 

* NO, SENSE AGAIN 

* LEVEL 4- OP COMP 
CLEAR COLUMN COUNTER 
READ BIT SWITCHES 
GET SW SETTING 

HALT PROGRAM 

* YES 

* NO 

DO STACKER SELECT 

* YES 

* NO 

WHAT OPERATION 
FEED A CARD 
START THF PUNCH 

* PCH FROM SWS 

GIVE STACKER COMMAND 
RESTORE ACC 



BUILD XIO COMMANDS 
SET UP RESTART 



* INIT PCH 



* FFFD A CARD 
* 

* READ BIT SWITCHES 
* 

* 

* SENSE DSW 
* 

* 

* PCH A COLUMN 
* 

* 

* STACK SELECT 
* 

* 

!=****«***♦*«**********»***»** 

THE LAST FIVE WORDS ARE 

* USED FOR PROGRAM 

* IDENTIFICATION. THREE 

* FOR THF PIO AND TWO FOR 

* SEQUENCE. 



3A009660 
3A009670 
3A009680 
3A009690 
3A009700 
3A009710 
3A009720 
3A009730 
3A009740 
3A009750 
3A009760 
3A009770 
3A009780 
3A009790 
3A009800 
3A009810 
3A009820 
3A00983O 
3A009840 
3A009850 
3A009860 
3A009870 
3A009880 
3A009890 
3A009900 
3A009910 
3A009920 
3A009930 
3A009940 
3A009950 
3A009960 
3A009970 
3A009980 
3A009990 
3A010000 
3A010010 
3A01002O 
3A010030 
3A010040 
3AO10050 
3A010060 
3A010070 
3A010080 
3A010090 
3A010100 
3A010110 
3A010120 
3A010130 
3A010140 
3A010150 
3A010160 
3A010170 
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6.07 1442 READER 



PRELOAD SWS 



B. LOADING 

C. WAITS 



0. RESTART 



E. COMMENTS 



0000 






0000 





601F 


0001 





OOFE 


0002 





0006 


0003 





003A 


0004 





0001 


0005 





0012 


0006 





6020 


0007 





Raia 


0008 





OOOF 


0009 





7R08 


OOOA 





0000 


0008 





0000 


OOOC 





OOOF 


0000 





OOFF 


OOOE 





0001 


OOOF 





0000 


0010 





08F5 


0011 





00F9 


0012 





4850 


0013 





7024 



************************** ^^<t*»#**«:^*:(:t ************ 
* 

1. THE PROGRAM READS A COLUMN OF DATA FROM 
THF CARD AND COMPARES IT WITH THE PIT SWS. 

2. AN OPTION IS AVAILABLE TO SET UP A VARIABLE 
DELAY BETWEEN XIO READ EXECUTIONS. 

3. AN OPTION IS AVAILABLE TO BYPASS WAIT 6 
ON COMPARE ERRORS. 



1. IF DFLAY IS OESTRED, SET DELAY CONTROL 
VALUE IN BIT SWITCHES 1 THRU 13. 
*NOTF* SWS 1 THRU 13 ALL ON, MAX DFLAY. 

SWS 1 THRU 13 ALL OFF, NO DELAY. 

2. IF BYPASS COMPARE ERROR WAIT 6 OPTION IS 
DESIRED, TURN ON BIT SWITCH 15. 

LOAO IPL FROM CARD 0.^ PAPER TAPE. 

SET BIT SWITCHES THRU 11 TO EXPECTED COLUMN 
DATA AMD SET BITS 12 THRU 15 OFF. 

LOAD PREPUNCHED CARDS INTO READER AND MAKE RDY. 
DEPRESS START. 

NO INTERRUPT GENERATED AFTER XIO READ. 
COMMAND WAS GIVEN. SEE COMMENTS. 

COMPARE ERROR. ACCUMULATOR CONTAINS BITS READ. 

IF ACCUMULATOR CONTAINS /OOFF, COLUMN READ WAS 

NOT STORED INTO READ/IN AREA. 

DEPRESS START TO READ NEXT CARD. 

TO BYPASS COMPARE ERROR WAIT, SEE PRELOAD. 

1. TO RESTART PROGRAM OR RESET INITIAL PRELOAD 
SWITCH SETTINGS, DEPRESS IMMEDIATE 
STOP AND RESET PUSH BUTTONS. 

?. SET DESIRFD PRELOAD BIT SWITCH SETTINGS. 

3. DEPRESS START. 

1. LAST DSW SENSED IS DISPLAYED IN THE Q REG. 

2. TO RUM PROGRAM WITH INTFRKUPT DELAY SW ON 
OR TO BYPASS THE INTERRUPT WAIT, LOAD /6010 
INTO LOCATION /0037 AND DO A PROGRAM RESTART, 

3. TO SET UP LOOP TO EXECUTF XIO, LOAD /6010 
INTO LOCATION /0037 AND LOAD /lOOO INTO 
LOCATION /003A AND DO A PROGRAM RESTART. 



******************^:*<,***^-.;j<*<c^^^<,»^^^^^^jj,^^^^^^^^^^ 

OR G 

RDBGN LOX RDRLO *A* TO /602D LDX RORST 

ROARA DC /OOFF READ IN AREA 

RD8SW DC RDDSW BIT SW SAVE AREA 

DC /003A *A* TO /3A00 RO BIT WSW 

RDRRD DC RDAPA READ IN AREA ADOR 

DC /0012 *A* TO /1200 XIO READ 

RDOSW LDX RDPST niT SW SAVE AREA 

DC /B818 *A* TO /1703 XIO SENSE 

RORGO DC RDI04 INTERRUPT ADDR 

DC /2B08 *A* TO /1404 XIO START 

RDERR DC *-* LAST RDR COMPARE ERR 

RODSV DC *-* LAST DSW SENSED 

DC RDI04 INTERRUPT ADOR 

RDOFF DC /OOFF CONSTANT /OOFF 

RDQNE DC I CONSTANT 1 

RDI04 DC *-* INTERRUPT FNTRY 

XIO RDOSW SENSE AND SAVE DSW 

STO RDDSV * 

BOSC - CK FOR RO RESPONSE 

MDX RDCOP NO, CK OP COMPLETE 



3A010190 

3A010200 

3A010210 

3A010220 

3A010230 

3A010240 

3A010250 

3A010260 

3A010270 

3A010280 

3A010290 

3A010300 

3A010310 

3A010320 

3A010330 

3A010340 

3A010350 

3A010360 

3A010370 

3A010380 

3 AO 10390 

3A010400 

3A010410 

3A010420 

3A010430 

3A010440 

3A010450 

3A010460 

3A010470 

3A010480 

3A010490 

3A010500 

3A010510 

3A010520 

3A010530 

3A010540 

3A010550 

3A010560 

3A010570 

3A010580 

3A010590 

3A010600 

3A010610 

3A010620 

3A0 10630 

3A010640 

3A0 10650 

3A010660 

3A010670 

3A010680 

3A010690 

3A010700 

3A010710 

3A010720 

3A010730 

3AOI0740 

3AO1075O 

3A010760 

3A010770 

3A010780 

3A010790 

3A010800 

3A010810 

3AO10820 

3AO10830 

3A010840 

3AQ10850 

3A010S60 



0014 08FF 


XIO 


RDRRD 


YES, READ COLUMN 


3A010870 


0015 COFO 


LD 


RDDSW 


CK IF COMPARE TO SWS 


3A0108SO 


0016 1804 


SRA 


4 


* 


3A010890 


0017 1004 


SLA 


4 


* 


3A010900 


0018 FOES 


EOR 


RDARA 


* 


3A010910 


0019 4818 


BSC 


£- 


* 


3A010920 


OOIA 701C 


MDX 


ROINT 


YES, WAIT NXT INTRPT 


3A010930 


OOIB C0E5 


LD 


RDARA 


NO, SAVE COL READ 


3A010940 


OOIC OOED 


STO 


RDERR 


* 


3A010950 


0010 6802 


STX 


RDESW 


SET ERR SW 


3A0 10960 


OOIF 7018 


MDX 


RDINT 


WAIT FOR NXT INTRPT 


3A010970 


OOIF COF^ 


RDBLD LO 


ROBSWEl 


BUILD lOCCS AND 


3A010980 


0020 1008 


RDESW SLA 


8 


* RESET/START BRANCH 


3A010990 


0021 OOEl 


STO 


RDBSW61 


* 


3A011000 


0022 C0E4 


LD 


ROOSWCl 


* 


3A011010 


0023 1803 


SRA 


3 


* 


3A011020 


0024 D0E2 


STO 


RDDSW&l 


* 


3A011030 


0025 C0F3 


LD 


RDRGPEl 


* 


3A011040 


0026 1801 


SRA 


1 


* 


3AOI1050 


0027 DOEl 


STO 


RDRGOei 


* 


3A011060 


0028 CODC 


LD 


R0RRD£1 


* 


3A011070 


0029 1008 


SLA 


8 


* 


3A011080 


002A DODA 


STO 


PDPRD61 


* 


3A011090 


002B CODA 


LO 


RDDSW 


* 


3A011100 


002C n 0003 


STO 


RORGN 


* 


3A011110 


0020 08D4 


RORST XIO 


RORSW 


READ SWS DELAY/OPT 


3A011120 


002E C0D7 


LD 


RDDSW 


* SAVE DELAY/OPTION 


3A011130 


002F DOEF 


STO 


ROPLD 


* 


3A0I1140 


0030 3001 


WA I T 


1 


SFT READ PATTERN 


3A011150 


0031 CODB 


LD 


RDOFF 


* 


3A0I1160 


0032 OOCE 


STO 


RDARA 


* 


3A011170 


0033 1010 


SLA 


16 


INITIALIZE AND spao 


3A011180 


0034 DOES 


STO 


RDESW 


* BIT SWS 


3A011190 


0035 08CC 


XIO 


RORSW 


* 


3A011200 


0036 OBDl 


XIG 


RORGO 


START READER 


3A01121O 


0037 3004 


ROINT WAIT 


4 


WAIT FDR INTERRUPT 


3A011220 


0038 1004 


ROCOP SLA 


4 


CK EOR DP COMPLETE 


3A011230 


0039 4850 


POSC 


- 


* 


3A011240 


003A 7005 


MOX 


RDI34&1 


NO, KESENSE DSW 


3A011250 


003B C8CE 


LDD 


RODSV-1 


YES, LOAD OSW IN Q 


3A011260 


003C C0E2 


LO 


RDBLD 


SET UP DELAY 


3A011270 


0030 1801 


SRA 


1 


* 


3A011280 


003E 90CF 


RDLOP S 


ROr\iE 


* 


3A011290 


003F 4810 


BSC 


- 


* 


3A011300 


0040 70ED 


MDX 


RDLOP 


* 


3A011310 


0041 CODE 


LD 


RDESW 


CK IF ERR SW ON 


3A011320 


0042 4818 


BSC 


r.- 


* 


3A011330 


0043 70ED 


MOX 


RDRSTS4 


NO, RD NXT CAPO 


3A01 1340 


00-14 CODA 


LD 


ROBLD 


YES, CK IE LOOP 


3A011350 


0045 lOOF 


SLA 


15 


* ON ERROR{BIT 15) 


3A011360 


0046 4820 


BSC 


Z 


* 


3A011370 


0047 70E0 


MOX 


RDINT-7 


YES, RD BIT SWS 


3A01138n 


0048 C8C1 


LDD 


RDDSV-1 


NO, DISPLAY RD FRR 


3A011390 


0049 3006 


WAIT 


6 


* AND OSW AT WAIT 6 


3A011400 


004A 70E6 


MDX 


RnRST&4 


RD NEXT CARD 


3A011410 




*********** 


*********** *****i^;^»;(;;^jt^,^^^^^^<,^^^J,^J,^^, 


3A011420 


004B no40 


DC 


/0040 


THE LAST FIVE WORDS ARF 


3A01143O 


004C 9000 


nc 


/9000 


* USED FOR PROGRAM 


3A011440 


004D 2000 


DC 


/2000 


* IDENTIFICATION. THREE 


3A0H450 


004E 2000 


DC 


/2000 


* EOR THE PID AND TWO FOR 


3A011460 


004F 0004 


DC 


/0004 


* SEQUENCE. 


3A01l',70 
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6.08 2310 DISK SEEK 



A. PRELOAD SWS 



B. LOADING 

C. WAITS I 



n. RESTART 



E. COMMENTS 



0000 






0000 





601B 


0001 





0000 


0002 





OOOE 


0003 





003A 


0004 





OOCA 


0005 





0000 


0006 





0000 


0007 





0000 


0008 





0000 


0009 





0000 


OOOA 





0011 


OOOB 





0000 


OOOC 





0004 


0000 





OOFF 


OOOE 





6020 


OOOF 





7010 


0010 





0808 


0011 





0000 


0012 





08F5 


0013 





D0F7 



* 

1. THE PROGRAM ALLOWS THE HEAD TO ACCESS BACK 
AND FORTH BETWEEN 2 CYLINDERS WHICH ARE 
CONTROLLED BY THE OPERATOR. 

2. AN OPTION IS AVAILABLE TO ALLOW A WAIT AFTER 
EACH SEEK OPERATION. 

3. THE PROGRAM CAN BE USED TO POSITION THE HEAD 
BEFORE LOADING THE 2310 WRT/RD/COMPARF 
PROGRAM. 6.09 



DRIVE 


1 


DRIVE 


2 


DRIVE 


3 


DRIVE 


4 



* 
* 
* 

* 
* 

* 
* 

* 
* 
» 

* 
* 

* 
* 

* 
* 
* 

* 

* 
* 
* 
* 

* 
* 

* 

* 
* 
* 
* 
* 



1. SET DESIRED DISK DRIVE AREA CODE IN BIT 
SWITCHES THRU 7. 

DRIVE 20XX 

- 88XX 

- 90XX 

- 98XX 

- AOXX 

2. IF WAIT AFTER EACH SEEK OPERATION IS DESIRED, 
SET BIT SWITCH 15 ON- 
LOAD IPL FROM CARD OR PAPFR TAPE. 

SET DESIRED HEX CYLINDER ADDRESS IN BIT 

SWITCHES THRU 7. SEE PAGE 2A. 

SET DESIRED HEX NUMBER OF CYLINDERS TO SEEK IN 

BIT SWITCHES 8 THRU 15. 

DEPRESS START. 

NO INTERRUPT GENERATED AFTER INITIAL XIO SEEK 
HOME WAS EXECUTED. SEE COMMENTS 

NO INTERRUPT GENERATED AFTER XIO SEEK WAS 
EXECUTED. SEE C0»4MENTS 

1. TO RESTART PROGRAM OR RESET SWITCH SETTINGS, 

DEPRESS IMMEDIATE STOP AND RESET PUSH BUTTONS. 
2- SFT DESIRED PRELOAD BIT SWITCH SETTINGS. 

3. DEPRESS START. 

1. LAST DSW SENSED IS DISPLAYED IN THE REG. 

2. TO RUN PROGRAM WITH INTERRUPT DELAY SW ON 
AND TO BYPASS THE INTERRUPT WAIT, LOAD /6012 
INTO LOCATIONS /0039 AND /0041. 

DO A PROGRAM RESTART. 



ORG 
OKBGN LDX 
DKENT DC 
DKBSW DC 

DC 
OKHME DC 

DC 
DKSEK DC 

DC 
OKOSW DC 

DC 

DC 
OKDSV DC 
DK004 DC 
DKOFF DC 
DKRIT LDX 
DKBDl DC 
DKB02 DC 
0KIN2 DC 

XIO 

STO 





OKBLD *A* TO /6020 LDX 'DKRST 

*-* INTERRUPT ENTRY SW 

OKBIT BIT SW SAVE 

/003A *A* TO /3A00 RO BIT SWS 

202 MAX NUMBER OF SEEKS 

*-♦ lOCC-SEEK HOME 

*-* NUMBER OF SEEKS 

*-♦ lOCC-SEEK 

*-* AREA CODE/SW nPTlDNS 

*-* lOCC-SENSE RESET DSW 

nKIN2 INTERRUPT ADDRESS 

♦-* LAST DSW 

/0004 CONSTANT 4 

/OOFF CONSTANT FF 

DKRST RESET VECTER 

/7010 DSW BUILD WORD 

/O808 SEEK BUILD WORD 

*-* OP COMPLETE INTRPT 

DKDSW SENSE RESET DSW 

OKDSV SAVE DSW 



3A011490 

3A011500 

3A011510 

3A011520 

3A011530 

3A011540 

3A011550 

3A011560 

3A011570 

3A011580 

3A011590 

3A011600 

3A011610 

3A011620 

3A011630 

3A011640 

3A011650 

3A011660 

3A011670 

3A011680 

3A011690 

3A011700 

3A011710 

3A011720 

3A011730 

3A011740 

3A011750 

3A011760 

3A011770 

3A011780 

3A0H790 

3A011800 

3A011810 

3A011820 

3A011830 

3A0I1840 

3A01ia50 

3A011860 

3A011870 

3A011880 

3A0118gO 

3A011900 

3A011910 

3A011920 

3A0 11930 

3A011940 

3A011950 

3A0H960 

3A011970 

3A011980 

3A011990 

3A012000 

3A012010 

3A012020 

3A012030 

3A012040 

3A012050 

3A012060 

3A0 12070 

3A0120aO 

3A012090 

3A012100 

3A012110 

3A012120 

3A012130 

3A012140 

3A012150 

3A012160 



0014 





1002 


0015 





4368 


0016 





6012 


0017 





C0E9 


0018 





4320 


0019 





7020 


OOIA 





7027 


OOIB 





C0F2 


OOIC 





00E3 


0010 





C0E5 


OOIF 





1008 


OOIF 





D0E3 


0020 





08E1 


0021 





COEC 


0022 





D0E5 


0023 





180B 


0024 





lOOB 


0025 





DOES 


0026 





C0E8 


0027 





1804 


0028 





E8E5 


0029 





DODF 


002A 





C0E5 


002R 





1301 


002r 





E8E1 


0020 





D0D7 


002E 





0003 


002F 





3001 


0030 


n 


0801 


0031 


n 


CO DC 


0032 





1308 


0033 





D002 


0034 





0BD3 


0035 





D0D5 


0036 





C8D3 


0037 





68C9 


0038 





08CB 


0039 





3005 


003A 





COCC 


003H 





FOOD 


003C 





DOCA 


003D 





C8CC 


003F 





1010 


003F 





DOCl 


0040 





03C5 


0041 





3006 


0042 





COCB 


0043 





E0C9 


0044 





DOCl 


0045 





C0C2 


0046 





4804 


0047 





3002 


0048 





70FI 


0049 





0000 


004A 





0000 


004B 





0040 


004C 





9000 


0040 





2000 


004E 





2 000 


004F 





0002 



SLA 


2 


BOSC 


ez 


LDX 


DKIN261 


LD 


DKENT 


BSC 


Z 


MOX 


DKMOV 


MDX 


DKCON 


DKBLO LD 


DKBIT 


STO 


OKBGN 


LD 


OKBSWEl 


SLA 


8 


STO 


DKBSWEl 


DKRST XIO 


OKBSW 


LO 


DKBIT 


STO 


OKDSW 


SRA 


11 


SLA 


11 


STO 


DKBIT 


LD 


OKBDl 


SRA 


4 


OR 


DKBIT 


STO 


OKDSWGl 


LD 


DKBD2 


SRA 


1 


OR 


OKBIT 


STO 


DKHMEGl 


STO 


DKSEK&1 


WAIT 


1 


XIO 


DKBSW 


LO 


DKBIT 


SRA 


3 


STO 


DKSEK 


XIO 


DKDSW 


Sin 


OKDSV 


LOO 


DKDSV-1 


STX 


DKENT 


XIO 


OKHME 


WAIT 


5 


DKMOV LO 


DKSEK61 


EOR 


DK004 


STO 


DKSEKCl 


LDD 


OKDSV-1 


SLA 


16 


STO 


DKENT 


xm 


DKSEK 


WAIT 


6 


DKCON LD 


DKBIT 


AND 


DKOFF 


STO 


DKSPK 


LD 


DKDSW 


BSC 


E 


WAIT 


2 


MDX 


DKMOV 


******•»♦♦**♦*♦*♦♦♦♦♦ 


DC 





DC 





DC 


/0040 


DC 


/9000 


DC 


/2000 


DC 


/2000 


DC 


/0007 



CK ROY, NOT BUSY 
* 

NO, LOOP 

LD INTERRUPT ENTRY SW 
CHECK IF ON 
NO, SEEK HOME ENTRY 
YES, SEEK ENTRY 
BUILD RD BIT SW lOCC 

* AND SET PROG RESET 

* AND START VECTER 
* 
* 
RD AREA CODE AND 

* PROG OPTIONS 
SAVE SWS 

SET UP AREA CODE 
* 

SAVE AREA CODE 
BUILD DSW AND SFFK 

* lOCCS 
* 
* 
* 
* 
* 
* 
* 
SET STARTING CYL. 

* AND NUM OF CYLS. 

* TO SEFK IN BIT SWS 
SFT UP START CYL. 
* 

SENSF DSW 
SAVE DSW 

LOAD OSW IN Q REG 
TURN ON INTRPT ENTRY SW 
SEEK HOMF 

WAIT FOR INTERRUPT 
SET UP SEEK 

* DIRECTION 
* 

LOAD DSW IN g RFG 
TURN OFF INTERRUPT 

* ENTRY SW 
SEFK 

WAIT FOR INTERRUPT 
SET UP NUM OF SEEKS 
* 
* 

CK FOR SEEK AND WAIT 
* 

YES, WAIT 
NO, GO. SEEK 

SPACE FILLER 

* 

THE LAST FIVE WORDS ARF 

* USED FOR PROGRAM 

* IDENTIFICATION. THREE 

* FOR THE PIO AND TWO FOR 

* SF3UENCE. 



3A012170 
3AO12180 
3A012190 
3A012200 
3A012210 
3A012220 
3A012230 
3A012240 
3A012250 
3A012260 
3A012270 
3A012280 
3A012290 
3A012300 
3A012310 
3A012320 
3A012330 
3A012340 
3A0I235O 
3A012360 
3A012370 
3A012380 
3A012390 
3A012400 
3A012410 
3A012420 
3A012430 
3A012440 
3A012450 
3A012460 
3A012470 
3A01Z480 
3A012490 
3A012500 
3A012510 
3A012520 
3A012530 
3A0 12540 
3A012550 
3A012560 
3A012570 
3A0125a0 
3A012590 
3A012600 
3A012610 
3A012620 
3A012630 
3A012640 
3A012650 
3A0 12660 
3A012670 
3A012680 
3A012690 
3A012700 
3A012710 
3A012720 
3A012730 
3A012740 
3A012750 
3A012760 
3A012770 
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6.09 2310 WRITE- 
READ-COMPARE 



A. PRELOAD SWS 



B. LOADING 

C. WAITS 1 

2 

3 
6 

D. RESTART 

E. COMMENTS 



0000 
OOOO 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
OOOA 
0008 
OOOC 
OOOD 
OOOE 



6020 
0000 
003A 
0000 
6000 
7010 
2820 
00C3 
0001 
0000 
OOOB 
0000 

oa3F 

1001 
1001 



THIS PROGRAM WRITES ON SECTOR 0, A DATA PATTERN 
WHICH WAS SET IN THE BIT SWS. THE DATA IS THEN 
READ AND COMPARED TO THE BIT SWITCHES. THE HEAD 
MAY BE POSITIONED WITH SCOPE LOOP 6.08. THIS 
WILL DESTROY THE SECTOR ADDRESS. IT MAY BE RE- 
STORED BY PLACING THE SECTOR NUMBER IN THE BIT 
SWITCHES AND EXECUTING THE PROGRAM ONCE. 
THE PROGRAM WILL HALT AT WAIT 2 AFTER EACH PASS. 



SET THE AREA CODE IN 0-7 FOR THE DISC TO BE USED 



DRIVE 








20XX 


DRIVE 


1 





88XX 


DRIVE 


2 





90XX 


DRIVE 


3 





98XX 


DRIVE 


4 





AOXX 



* 
* 
« 

* 

* 
* 
* 
* 

* 
* 

* 

* 
* 

* 
* 

* 

* 

* 

* 
* 

* 
* 
* 
* 
* 
* 
* 



LOAD IPL FROM CARD OR PAPER TAPE. 

SET DATA IS BE WRITTEN IN SWITCHES 0-15. 

HALT AFTER ONE PASS. TO LOOP PROGRAM, LOAD /lOOO 
INTO LOCATION /OOIE. 

LOST WRITE INTERRUPT. SEE COMMENTS. 

LOST READ INTERRUPT. SEE COMMENTS. 

COMPARE ERROR BETWEEN THE DATA READ AND THE BIT 
SWITCHES. THE BITS IN ERROR WILL BE ON IN THE 
ACCUMULATOR. TO LOOP ON ERROR, LOAD /lOOO INTO 
LOCATION /0017. 

1. TO RESTART PROGRAM OR RESET SWITCH SETTINGS, 
DEPRESS IMMEDIATE STOP AND RESET PUSH BUTTONS 

2. SET DESIRED PRELOAD BIT SWITCH SETTINGS. 

3. DEPRESS START. 

1. TO RUN THE PROG WITH INTERRUPT DELAY SWITCH 
ON OR BYPASS THE INTERRUPT WAIT LOAD /600C 
INTO LOCATION /0047 AND /004A AND RESTART. 



2. 



3. 



TO GET A FASTER LOOP THAN THE ABOVE PLACE 
/70FE IN THE NEXT LOCATION AFTER THF XIO. THE 
XIO WILL BE EXECUTED AFTER EACH BRANCH. 

IF INTERRUPT IS LOST, B REG WILL CONTAIN 
DATA WORD AND ARITH REG WILL CONTAIN WAIT 
NUMBER /0003 OR /0004. 



ORG 
DCBGN LOX 
DCSWS DC 
DC0N5 DC 
DCXR3 DC 
DCONl DC 

DC 
DC0N2 DC 

DC 
DCBSW DC 

DC 

DC 
DC INT DC 

XIO 
DC0N3 SLA 

SLA 





DCBLD 

*-* 

/003A 

♦ -* 

/6000 

/7010 

/2820 

/00C3 

DCSWS 

/OOOO 

DC I NT 

♦-* 

DCOSW 

1 

1 



GO TO PROG 
SW READ IN AREA 
CONSTANT 
INDEX REG 3 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
SW READ IN ADRS 
♦A* DC /3A00 READ BIT SWS 
INTERRUPT ADRS 
INTERRUPT ENTRY 
SENSE DSW 
ALSO A CONSTANT 



3A012790 
3A012800 
3A012810 
3A012820 
3A012830 
3A012840 
3A012850 
3A012860 
3A012870 
3A012880 
3A012890 
3A012900 
3A012910 
3A012920 
3A012930 
3A012940 
3A012950 
3A012960 
3A012970 
3A012980 
3A012990 
3A013000 
3A013010 
3A013020 
3A013030 
3A013040 
3A013050 
3A013060 
3A013070 
3A013080 
3A013090 
3A013100 
3A013110 
3A013120 
3A013130 
3A013140 
3A013150 
3A013150 
3A013170 
3A013180 
3A013190 
3A013200 
3A013210 
3A013220 
3A013230 
3A013240 
3A013250 
3A013260 
3A013270 
3A013280 
3A013290 
3A013300 
3A013310 
3A0I3320 
3A013330 
3A013340 
3A013350 
3A013360 
3A0 13370 
3A013380 
3A013390 
3A013400 
3A013410 
3A013420 
3A013430 
3A 01 3440 
3A013450 
3A013460 



OOOF 





4868 


0010 





600C 


0011 





C03A 


0012 





4818 


0013 





7034 


0014 





OOOO 


0015 





F0E8 


0016 





4320 


0017 





3006 


0018 





COEA 


0019 





gOEE 


OOIA 





O0E8 


OOIB 





F02F 


OOIC 





4820 


OOID 





70F6 


OOIE 





3002 


OOIF 





701C 


0020 





coei 


0021 





1008 


0022 





00E6 


0023 





08F4 


0024 





C8DC 


0025 





18CC 


0026 





880D 


0027 





18C4 


0028 





D823 


0029 





1800 


002A 





COO 9 


002B 





1308 


002C 





DS21 


0020 





18CB 


002E 





F005 


002F 





1805 


0030 





D31F 


0031 





CRD4 


0032 





1805 


0033 





D02C 


0034 





BOIB 


0035 





OOCD 


0036 





D014 


0037 





18C8 


0038 





DODB 


0039 





F003 


003A 





D003 


003B 





3001 


003C 





03CB 


0030 





C0C3 


003E 





OOOO 


003F 





C0C3 


0040 





90C7 


0041 





DOCl 


0042 





FOOD 


0043 





4820 


0044 





70F8 


0045 





0006 


0046 





0309 


0047 





3003 


0048 





6803 


0049 





0804 


004A 





3004 


004B 





0040 


004C 





9000 


004D 





2000 


004E 





2000 


004F 





0001 


0050 








DC5 



* 
DCBLD 



DCl 
DC 3 



DC6 



DCENO 
DCDSW 

DCRD 

DCWR 



80SC 
LOX 
LD 
BSC 

MOX 

DC 

EOR 

BSC 

WAIT 

LD 

A 

STO 

FOR 

BSC 

MOX 

WAIT 

MOX 

ID 

SLA 

STO 

XIO 

LDD 

RTE 

AD 

RTE 

STD 

RTE 

LD 

SRA 

STD 

RTE 

EOR 

RTE 

STO 

LOO 

SRA 

STO 

A 

STO 

STO 

RTE 

STO 

EOR 

STO 

WAIT 

XIO 

LD 

DC 

LO 

S 

STO 

FOR 

BSC 

MDX 

STO 

XIO 

WAIT 

STX 

XIO 

WAIT 

***** 

DC 

DC 

DC 

DC 

DC 

EQU 



6Z 
DCINTCl 

DCDSW 

e- 

DC6 
/OOOO 
DCSWS 
Z 
6 

DCXR3 
DCBSW 
DCXR3 
DCENO 
Z 

DCS 
2 

DCl 

INITIALI 
DC0N5 
8 

DCBSWEl 
DCBSW 
DCSWS 
12 

DCONl 
4 

DCOSW 
16 

DCONl 
3 

DCRD 
11 

DCONl 
21 

DCWR 
DC 0N2 
5 

/0060 
DCWR 
DCXR3 
DC END 
8 

DC 5 
DC0N3 
DC 3 
1 

DCBSW 
DCSWS 
/OOOO 
DCXR3 
DCBSW 
DCXR3 
DCWR 
Z 

DC 3-1 
DCDSW 
DCWR 
3 

DCOSW 
DCRD 
4 
*********** 

/0040 
/9000 
/2000 
/2000 
/OOOl 
0CRDC2 



IS DISK READY 

* NO 

* YES 

WAS LAST OP A READ 

* NO 

*A* LD 3 1 
COMPARE SWS 
ANY ERRORS 

* YES 

ADJ I/O ADRS 

* 

* 

* 

REACHED LIMIT 

* NO 

ONE PASS COMPLETE 
START OVER 
ZATION 

GET CONSTANT 



READ BIT SW I 
READ SWS 

GFT AREA CODE 
A- /OOOX Q- 
A- /600X g- 
A- /X600 0- 

SET DSW incc 

A- /X701 0- 
A- /6000 0- 
A- /0060 Q- 
SET READ IQCC 
A- /COOO g- 
A- /AOOO g- 
A- /0060 Q- 
SET WRITE IOC 
A- /2a20 Q- 
A- /014I Q- 
SET WORD COUN 
A- /OIAl 0- 
SET INDEX REG 
SFT LIMIT CNT 
A- /C301 0- 
SET LO 3 
A- /D300 Q- 
SET STO 3 
SET DATA PATT 
READ BIT SWS 
GFT BIT SWS 
*A* STO 3 

ADJ I/O ADRS 

* 

* 



REACHED LIMIT 

* NO 

* YES, CLEAR SW 
WRITE A RECORD 
WAIT FOR WRITE INTR 
SET SWITCH 
READ A RECORD 
WAIT EOT READ iNTR 

**************** *********^*«4i 

THE NEXT FIVE WORDS ARE 

* USED FOR PROGRAM 

* IDENTIFICATION. THREE 

* FOR THE PID AND TWO FOR 

* SEQUENCE. 



DCC 



/OOOX 
/701X 
/X701 

/X600 
/X600 
/X600 

/OCOX 

/OCOX 

/X500 

C 

/00C3 

/00C3 

T 

/00C3 

3 
I 

/AlOO 
1 

/AlOO 

ERN 



3A013470 
3A013480 
3A013490 
3A013500 
3A013510 
3A013520 
3A013530 
3A013540 
3A013550 
3A013560 
3A013570 
3A013580 
3A013590 
3A013600 
3A013610 
3A013620 
3A013630 
3A013640 
3A013650 
3A013660 
3A013670 
3A013680 
3A013690 
3A013700 
3A013710 
3A013720 
3A013730 
3A013740 
3A013750 
3A013760 
3A013770 
3A013780 
3A013790 
3A013800 
3A013810 
3A013820 
3A013830 
3A013840 
3A013850 
3A013860 
3A013870 
3A013880 
3A013890 
3A013900 
3AOI3910 
3A013920 
3A013930 
3A013940 
3A013950 
3A013960 
3A013970 
3A013980 
3A013990 
3A014000 
3A014010 
3A014020 
3A014030 
3A014040 
3A014050 
3A014060 
3A014070 
3A0 14080 
3A014090 
3A014100 
3A014110 
3A014120 
3A014130 
3A014140 
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6.10 1627 PLOTTER 



****************************** *»***»»**»**** ♦♦*♦*«♦ 
* 

* I. THE PROGRAM EXECUTES ALTERNATE FUNCTIONS 

* WHICH HAVE BFEN SELECTED IN THE RIT SWS 

* 2. AN OPTION IS AVAILA3LE TO SET UP A VARIABLE 

* DELAY BETWEEN XIO WRITE EXECUTIONS. 
, AN OPTION IS AVAILABLE TO HALT THE PROGRAM 

AFTER THE COMPLETION OF THE EXECUTION OF 
AN ALTERNATE XIO SEQUENCE. 



PRELOAD SWS 



B. LOADING 

C. WAITS 1 



D. RESTART 



E. COMMENTS 



1. 



0000 






0000 





6012 


0001 





0001 


0002 





0006 


0003 





003A 


0004 





0006 


0005 





0029 


0006 





0000 


0007 





002F 


0008 





601F 


0009 





0000 


OOOA 





0000 


OOOB 





OOOC 


OOOC 





0000 


OOOD 





08F8 


OOOE 





DOFA 


OOOF 





4850 


0010 





70FC 


0011 





7023 



* 

* 
* 
* 
* 
* 
* 
* 

* 

* 
* 
* 
* 
* 
* 
* 

* 
* 
* 

* 
* 
* 

* 
* 

* 
* 

* 
* 
* 

ORG 

PLBGN LDX PLBLO *A* TO /6QIE LDX PLROS 

PLONE OC 1 CONSTANT ONE 

PLBSW DC PLOSW BIT SW SAVE AREA 

DC /003A »A* TO /3A00 RD BIT SWS 

PLOT DC PLDSW CHARACTER ADDRESS 

DC /0029 *A* TO /2900 XIO WRITE 

PLOSW DC ♦-* BIT SW REAOIN AREA 

OC /002F *A* TO /2F01 XIO SENSE 

PLRST LDX PLRDS RESFT START MOD 

PLDSV DC *-* DSW SAVE AREA 

PLSET OC *-* SW OPTION/DELAY SAVE 

DC PLIN3 INTERRUPT ADDRESS 

PLIN3 OC ♦-* INTERRUPT LEVEL 3 

XIO PLDSW SENSE RESET DSW 

STO PLDSV SAVE DSW 

BOSC - RESET INT LEVEL 

HDX PLIN3&1 RESENSE DSW 

HOX PLRET BRANCH TO DELAY 



IF DELAY IS DESIRED, SET DELAY CONTROL 
VALUE IN RIT SWITCHES 1 THRU 13. 
♦NOTE* SMS 1 THRU 13 ALL ON, MAX DELAY. 
SWS 1 THRU 13 ALL OFF, NO DELAY, 
IF A WAIT AFTER EACH PROGRAM PASS IS 
DESIRED, TURN ON BIT SWITCH 15. 



LOAD IPL FROM CARD OR PAPER TAPE. 

SET DESIRED FUNCTION CODES IN BIT SWITCHES 

THRU 15. SEE PAGE ?A FOR BIT SW COOES. 

1ST FUNCTION CODE IN SWS THRU 5. 

2ND FUNCTION CODE IN SWS 8 THRU 13. 
TURN ON PLOTTER AND MAKE READY. 
DEPRESS START. 

NORMAL PROGRAM WAIT IF 1 PASS OPTION HAS BEEN 
SELECTED. DEPRESS START TO MAKE ANOTHER PASS. 

NO INTERRUPT GENERATED AFTFR XIO WRITF 
COMMAND WAS GIVEN. SFE COMMENTS. 

1. TO RESTART PROGRAM OR RESET INITIAL PRFLOAD 
SWITCH SETTINGS, DEPRESS IMMEDIATE 

STOP AND RESFT PUSH BUTTONS. 

2. SET DESIRED PRELOAD BIT SWITCH SETTINGS. 

3. DEPRESS START. 

1. LAST DSW SENSED IS DISPLAYED IN THE Q REG. 

2. IF NO FUNCTION ENTERED IN BIT SWS, PROGRAM 
STOPS AT WAIT 1. 

3. TO RUN PROGRAM WITH INTERRUPT DELAY SW ON 
OR TO BYPASS THE INTERRUPT WAIT, LOAD /600D 
INTO LOCATION /0034 AND DO A PROGRAM RESTART. 

4. TO SET UP LOOP TO EXECUTE XIO, LOAD /600D 
INTO LOCATION /0034 AND LOAD /6035 INTO 
LOCATION /OOIO AND DO A PROGRAM RESTART. 



3A014160 
3A01417n 
3A014180 
3A014190 
3A0 14200 
3A014210 
3A0 14220 
3A014230 
3A014240 
3A014250 
3A014260 
3A014270 
3A014280 
3A014290 
3A014300 
3A014310 
3A014320 
3A014330 
3A014340 
3A014350 
3A014360 
3A014370 
3AOI4380 
3A014390 
3A0 14400 
3A014410 
3A014420 
3A0 14430 
3A014440 
3A014450 
3A014460 
3A014470 
3A014480 
3A014490 
3A014500 
3A014510 
3A014520 
3A014530 
3A014540 
3A014550 
3A014560 
3A014570 
3A014580 
3A0 14590 
3A0 14600 
3A0I4610 
3A014620 
3A014630 
3A0 14640 
3A014650 
3A014660 
3A014670 
3A0146B0 
3A014690 
3A014700 
3A014710 
3A014720 
3A014730 
3A0 14740 
3A014750 
3A014760 
3A014770 
3A014780 
3A014790 
3A014800 
3A014810 
3A014820 
3A014830 



0012 





C0F2 


0013 





1008 


0014 





DOFO 


0015 





COFl 


0016 





1008 


0017 





E3E9 


0018 





DOEE 


0019 





C0E9 


OOIA 





1008 


OOIB 





D0E7 


OOIC 





COEB 


0010 





00E2 


OOIE 





03E3 


OOIF 





C0E6 


0020 





D0E9 


0021 





3001 


0022 





080F 


0023 





C0E2 


0024 





180A 


0025 





4808 


0026 





70FA 


0027 





CODE 


0028 





1008 


0029 





190A 


002A 





4808 


002B 





70F5 


002C 





C8DB 


002D 





0808 


002E 





OODA 


002F 





1004 


0030 





4828 


0031 





70FA 


0032 





C8D5 


0033 





0800 


0034 





3003 


0035 





C8D2 


0036 





r0D3 


0037 





1801 


0038 





90C8 


0039 





4810 


003A 





70F0 


003B 





COCA 


003r 





4804 


003D 





3002 


003F 





1802 


003F 





4818 


0040 





70 EO 


0041 





lOOA 


0042 


n 


DOC 3 


0043 





COCF 


0044 





4B20 


0045 





7002 


0046 





68CC 


0047 





700A 


0048 





1010 


0049 





DOC 9 


004A 





70E1 


004n 





0040 


004C 





9000 


0040 





2000 


004E 





1000 


04F 





2000 



PLBLD 


LD 


PLOTGl 


PUILO WRITE lOCC 


3A014840 


PLCTL 


SLA 


8 


* 2N0 CHAR SW 


3A014850 




STO 


PLOT£l 


» 


3A014860 




LD 


PLOSWSl 


BUILO SENSF RESET 


3A014870 




SLA 


8 


* 


3A014880 




OR 


PLONE 


* 


3A 01 4890 




STO 


PLDSW£1 


* 


3A014900 




LD 


PLBSWSl 


BUILD READ BIT SW 


3A014910 




SLA 


8 


* lOCC 


3A014920 




STO 


PLBSWEl 


* 


3A014930 




LD 


PLRST 


SET UP RESET AND 


3A014940 




STO 


"LBGN 


* START BRANCH 


3A014950 


PLRDS 


XIO 


PLBSW 


READ PIT SWS FOR 


3A014960 




LD 


PLDSW 


♦ PROG OPTS/DELAY 


3A 01 4970 




STO 


PLSET 


* 


3A014980 




WAIT 


1 


SET CHARS IN SWS 


3A014990 


PLSTR 


XIO 


PLBSW 


RFAO BIT SWS 


3A0 15000 




LD 


PLOSW 


CK FOR NO COMMAND 


3A015010 




SRA 


10 


* ENTERED 


3A015020 




BSC 


£ 


* 


3A015030 




MOX 


PLSTR-1 


* NO, SENSE SWS 


3A015040 




LD 


PLDSW 


* 


3A015050 




SLA 


8 


* 


3A015060 




SRA 


10 


* 


3A015070 




BSC 


£ 


* 


3A0 15080 




MDX 


PLSTR-1 


* NO, SENSE SWS 


3A015090 


PLSFN 


LDD 


PLDSV-1 


LOAD LAST OSW IN . 


3A015100 




XIO 


PLOSW 


CHK DEVICE NOT BUSY 


3A015110 




STO 


PLDSV 


SAVE DSW 


3A015120 




SLA 


4 


* 


3A015130 




BSC 


EZ 


* 


3A015140 




MOX 


PLSFN 


* 


3A015150 




LDD 


PLDSV-1 


LOAD LAST DSW IN . 


3A015160 




XIO 


PLOT 


WRITE CHARACTER 


3A015170 




WAIT 


3 


WAIT FOR JNTERUPT 


3A015180 


PLRET 


LDD 


PLDSV-1 


LOAD LAST DSW IN Q . 


3A015190 




LD 


PLSET 


SET UP DELAY AND 


3A015200 




SRA 


1 


* EXECUTE DELAY 


3A015210 


PLLOP 


S 


PLONE 


* 


3A015220 




BSC 


- 


* 


3A01523O 




MOX 


PLLOP 


* 


3A015240 




LD 


PLOSW 


LD, SET UP 2N0 CHAR 


3A015250 




BSC 


E 


CHK IF WAIT REOUSTED 


3A015260 




WAIT 


2 


YES 


3A015270 




SRA 


2 


NO, CHK 2ND CHAR OK 


3A015280 




BSC 


£- 


« 


3A015290 




MDX 


PLSTR-1 


NO, GO TO WAIT I 


3A015300 




SLA 


10 


YES, SET UP 2ND CHAR 


3A015310 




STO 


PLDSW 


* 


3A015320 




LD 


PLCTL 


CHK IF 2NQ CHAR SW 


3A0 15330 




BSC 


Z 


* OFF 


3A015340 




MDX 


PLALT 


NO, BRANCH 


3A015350 




STX 


PLCTL 


YES, SET 2ND CHAR SW 


3A015360 




MDX 


PLSTR 


GO LOOP PROGRAM 


3A015370 


PLALT 


SLA 


16 


CLR 2ND CHAR SW 


3A015380 




STO 


PLCTL 


* 


3A015390 




MOX 


PLSEN 


GO CHK IF PRINT BUSY 


3A015400 


******♦****♦*♦♦«**♦»«*«**♦**»****»*«**♦***«*♦****♦♦ 


3A015410 




DC 


/0040 


THE LAST FIVE WORDS ARE 


3A015420 




DC 


/9000 


* USED FOR PROGRAM 


3A015430 




DC 


/2000 


* IDENTIFICATION. THREE 


3A015440 




DC 


/loob 


* FOR THE PID AND TWO FOR 


3A0 15450 




DC 


/2000 


* SEQUENCE. 


3A0 15460 
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6.11 2501 READER 



A. PRELOAD SWS 



B. LOADING 

C. WAITS 1 



D. RESTART 



E. CO^IMENTS 



* 
* 
* 
* 
* 

* 

* 
* 

* 
* 
* 
* 
* 
* 
* 
4 * 



* 
* 
* 
* 
* 
* 
* 

* 

* 

* 

* 

* 

* 
* 



0000 






oooo 





6035 


0001 





0001 


0002 





0004 


0003 





003A 


0004 





60 10 


0005 





0027 


0006 





0036 


0007 





0027 


oooa 





OOFF 


0009 





0000 


OOOA 





0000 


OOOR 





C022 


OOOC 





OOOE 


0000 





0005 


OOOF 





0000 


OOOF 





08F4 


0010 





D0F8 


0011 





1004 


0012 





4850 


0013 





70F8 



**************** 

* 1. THE PROGRA 

* COMPARES F 

* 2. AN OPTION 

* DELAY BETW 
. AN OPTION 

ON COMPARE 



**<t*^***:*;(:**^$A*^^4.^;j,^^^^^,,^^^^^^^^ 



M READS RO COLUMNS OF DATA AND 
ACH WORD WITH THE BIT SWITCHES- 
IS AVAIIABLF TO SET UP A VARIABLE 
EEN XIO READ EXECUTIONS. 
IS AVAILABLE TO BYPASS WAIT 6 
ERRORS. 



1. IF DELAY IS OESIKFO, SFT D^LAY CONTROL 
VALUE IN BIT SWITCHES 1 THRU 13. 
♦NOTE* SWS 1 THRU 13 ALL ON, MAX DELAY. 

SWS I THRU 13 ALL OFF, NO DELAY. 

2. IF BYPASS COMPARE ERROR WAIT 6 OPTION IS 
DESIRED, TURN ON BIT SWITCH 15. 

LOAD IPL FROM CARD OR PAPER TAPE. 



SET BIT SWS 
DATA AND SET 
LOAD PREPUNCH 
DEPRESS START 

NO INTERRUPT 
COMMAND WAS G 

COMPARE ERROR 
IF ACCUMULATO 
NOT STORED IN 
DEPRESS ST4RT 
TO BYPASS COM 



THRU 11 TO EXPECTED COLUMN 
BITS 12 THRU 15 OFF. 
FD CARDS INTO READER AND MAKE READY 

GENERATED AFTER XIG READ. 
IVEN. SEE COMMENTS. 

. ACCUMULATOR CONTAINS BITS READ. 
R CONTAINS /D0C3, COLUMN RFAD WAS 
TO READ/IN AREA. 

TO COMPARE NEXT COLUMN. 
PARE ERROR WAIT, SFE PRELOAD. 



1. TO RESTART PROGRAM OR RESET INITIAL PRELOAD 
SWITCH SETTINGS, DEPRESS IMMEDIATF 

STOP AND RFSET PUSH BUTTONS. 

2. SET DESIRED PRELOAD BIT SWITCH SETTINGS. 

3. DEPRESS START. 

1. LAST DSW SENSED IS DISPLAYED IN THE Q REG. 

2. TO RUN PROGRAM WITH INTERRUPT DELAY SW ON 
OR TO BYPASS THE INTERRUPT WAIT, LOAD /600F 
INTO LOCATION /002F AND DO A PROGRAM RESTART. 

3. TO SET UP LOOP TO EXECUTE xm, LOAD /600F 
INTO LOCATION /002F AND LOAD /6027 INTO 
LOCATION /0013 AND DO A PROGRAM RESTART. 



********* ^ ****<=* «,«^^;J:;;.^5|,^4.^,^^^^^^^^^^^^^^^^^^^^^^^ 



ORG 
CPBGN LDX 
CRONE DC 
CRBSW DC 

DC 
CRDSW LDX 

DC 
CRRDR DC 

DC 
CRFRP DC 
CRDSV DC 
CREND DC 
CRSRA DC 

DC 
CR080 DC 
CRIN4 DC 

xin 

STO 
SLA 

BOSC 
MUX 





CR 

I 

CR 

/O 

CR 

/O 

CR 

/O 

/O 

*- 

»- 

/c 

CR 

/o 

*- 
CR 
CR 
4 



BLD 

OSW 

03A 

RST 

027 

ARA 

027 

OFF 

* 

* 

022 

IN4 

005 

* 

OSW 

osv 



CRIN4(I1 



*A* TO /6030 
CONSTANT 1 
BIT SW SAV 
*A* TO /3A 
BIT SW S4V 

*A* TO /4F01 
CARD RFAD 

*4* TO /4E00 
SAVE RFAD 
LAST OSW S 

*A* TO /Oil A 
LD READ AR 
INTERRUPT 

*A* TO /0050 
INTERRUPT 
SENSE DSW 
SAVE OSW 
CK FOR OP 
* 

NO, RF.SENS 



LDX CRRST 

E ADDR 

00 RO BIT SWS 

F AREA 

XIO SENSE DSW 

IN ADDR 

XIO START RDR 

ERROR 

FNSED 

END OF RO AREA 

FA 

ADDR 

CONSTANT 80 

FNTRY 



COMPLFTE 
E DSW 



3A015480 

3A015490 

3A0 15500 

3A015510 

3A015520 

3A015530 

3A0 15540 

3A015550 

3A015560 

3A015570 

3A015580 

3A015590 

3A015600 

3A015610 

3A015620 

3A015630 

3A015640 

3A015650 

3A015660 

3A015670 

3A015680 

3A0I5690 

3A015700 

3A015710 

3A0I5720 

3A015730 

3A015740 

3A015750 

3A015760 

3A015770 

3A015780 

3A015790 

3A015800 

3A015810 

3 AO 15820 

3A015a30 

3A015840 

3A015850 

3A015S60 

3A015R70 

3A015880 

3A015890 

3 AO 15900 

3A015910 

3A015920 

3A015930 

3A015940 

3A015950 

3A0 15960 

3A015970 

3A015980 

3A015990 

3A016000 

3A016010 

3A016020 

3A016030 

3A016040 

3A016050 

3A016060 

3A016070 

3A016080 

3A016090 

3A016100 

3A016UO 

3A016120 

3A016130 

3A016140 

3A016150 



0014 

0015 

0016 

0017 

0018 

0019 

OOIA 

OOIB 

OOIC 

OOID 

OOIE 

OOIF 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

002A 

002B 

002C 

002D 

002E 

002F 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

003A 

003B 

003C 

003D 

003E 

003F 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 



C022 
D0F2 
FOEO 
4818 
7006 
COIB 
O lOOF 
4828 
700A 
C3EA 
3006 
C0F4 
ROEO 
D0F2 
90E7 



4828 
70EF 
C0F5 
DOED 
CSFO 
COOC 



1801 

90D6 



4810 
70F0 
08D4 



0807 
3004 
08D1 
C0D2 
0002 
3001 
a 70F8 
COCD 
1008 
DOCB 
COCB 
DOC 6 
COCA 
1001 
F8C4 
1008 
E8C2 
DOC 5 
C0C6 
1009 
DOC 4 
C0C9 
1004 

noFO 

80C4 
DOC 2 



70F7 



0049 0000 

004A 0000 

004R 0040 

004C 9000 

004D 2000 

004F 1000 

004F 1000 



CRLD LD 
STO 
FOR 
BSC 
MOX 
LO 
SLA 
BSC 
MDX 
LOO 
WAIT 
CRMOD LD 
A 

STO 
S 

BSC 
MDX 
LD 
STO 
LDD 
LD 
SRA 
CRLOP S 

BSC 
MDX 
CRSTR XIO 
XIO 
WAIT 
CRRST XIO 

LD 

STO 

WAIT 

MOX 

LD 

SLA 

STO 

LD 

STO 

LD 

SLA 

OR 

SLA 

OR 

STO 

LD 

SLA 

STO 

LD 

SLA 

STO 

A 

STO 

MDX 
*****«*****- 

DC 
DC 
DC 
DC 
DC 
DC 
DC 



CRBLD 
CRARA 



CRARASl 

CRERR 

CRDSW 

G- 

CRMOD 

CRBLD 

15 

£Z 

CRLOP-3 

CRPRR 

6 

CRLO 

CRONE 

CRLD 

CREND 

LI 

CRLD 

CRSRA 

CRLD 

CRERR 

CRBLD 

1 

CRONE 

CRLOP 

CRBSW 

CRRDR 

4 

CRBSW 

CRDSW 

CRBLD 

1 

CRSTR 

CRBSWEl 

8 

CRBSWfil 

CRDSW 

CRRGN 

CRDSWei 

1 

CRONE 

8 

CRONE 
CR0SW£1 
CRRDREl 
9 

CRRDREl 
CR080 
4 

CRARA 
CRSRA 
CREND 
CRRST 
********* 





/0040 

/9000 

/2000 

/I 000 

/I 000 



LOAD COLUMN READ 

SAVE BITS READ 

COMPARE WITH PATT WD 

CK FOR COMPARE ERR 

NO, SFT UP NEXT CHK 

YES, CK LOOP OPT 

* 

* 

LOOP FRR OPTION ON 

LD DSW AND ERR BITS 

COMPARE ERROR WAIT 

SET UP NEXT COMPARE 

* 

* 

CK IF ALL COLUMNS 

* CHFCKFD 

NO, COMPARE NXT COL 

SET UP FOR NXT CARD 

* 

LOAD LAST DSW IN 

SET IIP DELAY 

* 

* 

* 

* 

RO BIT SWS PATT MO 

READ A CARD 

WAIT FOP INTERRUPT 

RO SWS FOR OELAY/OPT 

SAVF OELAY/O^TIONS 

* 

SET PATTERN IN SWS 

GO RFAD BIT SWS 

BUILD PROGRAM 
*A* TO /0050 WD CNT 80 
*A* TO *-* READ/IN AREA 

* 

* 

* 

* 



« 
* 
* 
* 
* 
* 
» 
* 
* 
* 
EXECUT'= PROGRAM 

**«*************;»*^^,;4;J.^^^^^J. 

SP4CE FILLER 

* 

THE LAST FIVE WORDS ARE 

* USED FOR PROGRAM 

* IDENTIFICSTION. THRFF 

* FOR THF PIO AND TWO FOR 

* SEQUENCE. 



3A016160 

3A016170 

3A016180 

3A016190 

3A016200 

3A016210 

3A016220 

3A016230 

3A016240 

3A0162 50 

3A016260 

3A016270 

3A016280 

3A016290 

3A016300 

3A016310 

3A016320 

3A016330 

3A016340 

3A016350 

3A016360 

3A016370 

3A016380 

3A016390 

3A016400 

3A016410 

3A016420 

3A016430 

3A016440 

3A016450 

3A0 16460 

3A016470 

3A016480 

3A016490 

3A016500 

3A016510 

3A016520 

3A016530 

3A016540 

3A016550 

3A016560 

3A016570 

3A016580 

3A016590 

3A016600 

3A016610 

3A016620 

3A016630 

3A016640 

3A016650 

3A016660 

3A016670 

3A016680 

3A0 16690 

3A016700 

3A016710 

3A016720 

3A016730 

3A016740 

3A016750 

3A016760 
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6.12 1403 PRINTER 

A. PRELOAD SWS 

B- LOADING 

C. WAIT 1 

2 
3 
5 
6 

D. RESTART 

E- COMMENTS 



* 

THIS PROGRAM WILL PRINT ANY CHARACTER ENTERED 
IN THE BIT SWITCHES 1-7 AND 9-15. IF BIT 14 IS ON 
THE BIT SWS 1-12 WILL BE THE CHANNEL THAT THE 
CARRIAGE WILL SKIP TO AFTER PRINTING. 



0000 






0000 





6033 


0001 





0000 


0002 





moo 


0003 





FOIO 


0004 





9000 


0005 





cooo 


0006 





0001 


0007 





003A 


0008 





0004 


0009 





9000 


OOOA 





0033 


OOOB 





OOOA 


OOOC 





OOlE 



OOOD 





08F8 


OOOE 





C0F2 


OOOF 





OOEE 


0010 





1803 


0011 





D0F2 


0012 





3001 


0013 





03F2 


0014 





COlO 


0015 





DOEC 


0016 





COEA 


0017 





00D2 


0018 





C0E9 


0019 





90EC 


OOIA 





4820 


OOIB 





70F9 


ooic 





08ED 



BIT SW 15- HALT AFTER ONE PASS. 

14- CARR SKIP FUNCTION. 
I THRU 12- CHANNEL NUMBER TO USE FOR SKIP. 

IPL MOOF FROM CARDS OR PAPER TAPE. 

SET CHARACTER TO PRINT, 1-7 AND 9-15. 

ONE PASS COMPLETED, PRESS START TO CONTINUE. 

LOST PRINTER INTERRUPT- 

LOST CARRIAGE INTERRUPT. 

PARITY ERROR FOUND IN THE DSW- 

PRESS IMMEDIATE STOP AND RESFT. PRELOADING 
SWITCHES MAY BE SET AS DESIRED. PRESS START. 

1. To RUN THE PROG WITH INTERRUPT DELAY SWITCH 
ON OP BYPASS THE INTERRUPT WAIT LOAD /601F 
INTO LOCATION /OOlO AND /0030 AND RESTART. 

2. TO GET A FASTER LOOP THAN THE ABOVE PLACE 
/70FF IN THF NFXT LOCATION AFTER THE XIO. THE 
XlO WILL BF EXECUTED AFTER EACH BRANCH. 



ORG 

LDX 
FPSWS DC 
FPDSW DC 

DC 
FPCAR DC 

DC 
FPBSW DC 

DC 
FPSKP nc 

DC 
EPPRT DC 

DC 

DC 



* 
FPSTR 



FPl 



FP? 



XIO 

LO 

STO 

SRA 

STO 

WAIT 

XIO 

LD 

STO 

LO 

DC 

LO 

S 

BSC 

MOX 

XIO 





FPBLD *A* LDX FPSTR 

*-* BIT SWITCH STG 

/DOOO *A* WORD COUNTER 

/FOIO *A* DC /AFOl 

/9000 CHANNEL BITS 

/COOO *A* DC /ACOO CARR CNTL 

FPSWS BIT SW STG ADRS £ ONE 

/003A *A* DC /3A00 READ BIT SWS 

FPCAR CARR CHAN ADRS 

/9000 *A* DC /A900 SKIP lOCC 

FPOUTEl PRINT ARFA ADRS 

/OOOA *A* DC /ADOO PRINT lOCC 

FPINT INTERRUPT ADRS 

START AND RESTART OF PROGRAM 

FPBSW READ BIT SWITCHES 

FPSWS GET SW SETTINGS 

FPSWS-3 * AND SAVE 

3 

FPCAR SET CHAN NUMBER 

1 SFT CONSDLF SWS 

FPBSW READ PRINTER CODE 

FPOUT GET WORD COUNT 

FPDSW LOAD XR 2 

FPSWS GET PRINT CODE 

/OOD? *A* STO 2 FPOUT 

FPDSW GET COUNT AND 

FPBSW * SUB ONE 

7. AREA FILLED 

FP2-2 * NO 

FPPRT PRINT A LINF 



3A016780 
3A016790 
3A016800 
3A016810 
3A016820 
3A016830 
3A0 16840 
3A0 16850 
3A016860 
3A016870 
3A016880 
3A016890 
3 AO 16900 
3A016910 
3A016920 
3A016930 
3A016940 
3A016950 
3A0 16960 
3A016970 
3A016980 
3 AO 16990 
3A017000 
3AO1701O 
3A017020 
3A017030 
3A017040 
3A017050 
3A017060 
3AO1707O 
3A017080 
3 AO 17090 
3A017100 
3A017110 
3A017120 
3A017130 
3A017140 
3A017150 
3A017160 
3A017170 
3A017180 
3A017190 
3 AO 17200 
3A017210 
3A017220 
3A017230 
3A017240 
3A017250 
3A017260 
3A017270 
3A017280 
3A017290 
3A017300 
3A017310 
3A017320 
3A017330 
3A017340 
3A017350 
3A017360 
3A017370 
3A017380 
3A0I7390 
3A017400 
3A017410 
3A017420 
3A017430 
3A017440 
3A017450 



OOID 





3003 


OOlE 





0000 


OOIF 





oaE2 


0020 





4844 


0021 





601F 


0022 





4828 


0023 





3006 


0024 





1002 


0025 





4810 


0026 





70EC 


00?7 





C0D6 


0028 





4804 


0029 





3002 


002A 





lOOE 


002B 





4810 


002C 





7002 


0020 





080A 


002E 





7001 


002F 





0BD4 


0030 





3005 


0031 





0001 


0032 





003C 



0033 





CO 13 


0034 





nocB 


0035 





C8 05 


0036 





88C0 


0037 





18C4 


0038 





D3C8 


0031 





DOCF 


003A 





C8D0 


003B 





88C6 


onsC 





18C4 


003D 





D3C4 


003E 





DOCC 


003F 





C0C7 


0040 





1008 


0041 





DOC 5 


0042 





C0D4 


0043 





1008 


0044 





e8C5 


0045 





90 EB 


0046 





0000 


0047 





6000 


0048 





00 00 


0049 





0000 


004A 





0000 


004B 





0040 


004C 





9000 


0040 





2000 


004E 





1000 


004F 





0800 





WAIT 


3 


WA 


,IT FOR PRINT INTERRUPT 


FPINT 


DC 


*-* 


INTERRUPT ENTRY 




XIO 


FPDSW 


SENSE DSW 




BOSC 


E 


IS 


; PRINTER READY 




LDX 


FPINTGl 


♦ 


NO 




BSC 


f.Z 


PARITY ERROR 




WAIT 


6 


* 


YES 




SLA 


2 


* 


NO 




BSC 


_ 


PRINT COMPLETE 




MOX 


FPl 


* 


NO, CARR INTR 




LD 


FPSWS-3 


GET CONTROLS 




BSC 


E 


HALT ON 




WAIT 


2 


* 


YFS 




SLA 


14 


* 


NO 




BSC 


- 


CARR SKIP FUNC 




MDX 


FP8 


* 


NO 




XIO 


FPSKP 


SKIP TO CHAN 




MOX 


FP8GI 


GO WAIT INTERRUPT 


FP8 


XIO 


FPCAR 


* 


YFS, SPACE 




WAIT 


5 


WAIT FOR CARR INTR 


* 

FPOOl 


DC 


/OOOl 


CONSTANT 


FPOUT 


DC 


60 


WORD COUNT 


* 




THIS WILL 


BE 


THE PRINT AREA AFTER 


* 

* 
FPBLO 




INITIALIZATION 


LO 


FPRES 








STO 





♦ 


SET RESTART 




LOO 


FPPRT+1 


* 


A- /OOOA Q- /OOOA 




AD 


FPCAR 


* 


A- /COOA 0- /900A 




RTF 


4 


* 


A- /ACOO 0- /A900 




STD 


FPCAR 


* 


CONTROL inCC 




STO 


FPSKPKl 


* 


SKIP lOCC 




LDO 


FPPRT+l 


* 


A- /OOOA 0- /OOOA 




AO 


FPDSW 


* 


A- /OOOA Q- /FOIA 




RTE 


4 


* 


A- /ADOO g- /AFOl 




STD 


FPOSW 


* 


SFNS^ DSW lOCC 




STO 


FPPRT&l 


* 


PRINT IQCC 




LO 


FPBSwf.l 


* 






SLA 


8 


* 






STO 


FP8SW£1 


* 


RFAD BIT SW lOCC 




LO 


FP2 


* 






SLA 


8 


* 






OR 


FPPRT 


* 






S 


FPOOl 


ADJUST DISPLACEMENT 




STO 


FP2 


* 


BUILD STO 2 FOPRT 


FPPFS 


LDX 


FPSTR 


GO TO OR PGP AM 


**********: 


********#«**♦*****♦*«***********■********* 




OC 





SPACE FILLER 




DC 





* 






DC 





* 






DC 


/0040 


THE LAST FIVE WORDS ARE 




OC 


/9000 


* 


USED FOR PROGRAM 




OC 


/2000 


* 


IDENTIFICATION. THREE 




DC 


/lOOO 


* 


FOR THE PID ANO TWO FOR 




OC 


/0 800 


* 


SEQUENCE. 



3A017460 
3A017470 
3A017480 
3A017490 
3A017500 
3A017510 
3A017520 
3A017530 
3A017540 
3A017550 
3A017560 
3A017570 
3A017580 
3A017590 
3A017600 
3A017610 
3A017620 
3A017630 
3A017640 
3A017650 
3A017660 
3A017670 
3A0176RO 
3A017690 
3A017700 
3A017710 
3A017720 
3A017730 
3A017740 
3A017750 
3A0I7760 
3A017770 
3A017730 
3A017790 
3A0I7800 
3A017810 
3A017820 
3A017830 
3A017840 
3A0I7850 
3A017860 
3A017R70 
3A01783O 
3A017890 
3A017900 
3A0I7910 
3A017920 
3A017930 
3A017940 
3A017950 
3A017960 
3A017970 
3A017980 
3A0I7990 
3A013000 
3A018010 
3A018020 
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***********************************t**************^ 


3A013040 
















3A018050 


6.13 


1132 PRINTER 




THE 


CHARACTER ENTERED IN SWS 0-7 IS PRINTED IN 


3A0 18060 












ALt PRINT POSITIONS. 


3A01fl070 
















3A018080 




A. 


PRELOAD SMS 




BIT SW 15— HALT AFTER EACH LINE PRINTED. SW 15 


3*018090 














ALSO CAUSES ONE EXTRA IDLE SCAN CYCLE 


.3A0iai00 














THIS HAS A NEGLIGIBLE AFFECT ON SPEED 


.3A018110 














8-15 — PRINT SPEED CONTROL— ENTER THE 


3A0lai20 














DESIRED NUMBER OF IDLF SCAN CYCLES 


3A018130 














TD BE TAKEN BETWEEN PRINT CYCLES. 


3A0iai40 














0-7=VALID CHARACTER— PRINT CHARACTER AS 


3A018150 














SHOWN ON PAGE 2. 


3A0iai60 














0-7=INVALID CHARACTER — IDLE CONTINOUSLY. 


3A018170 
















3A018180 












NOTE — PROGRAM ALWAYS TURNS ON BIT 10 TD PREVENT 


3A018190 














OPERATING AT EXCESSIVE SPEEDS. SPEED HAY 


3A018200 














BE INCREASED BY MANUALLY CHANGING CONSTANT 


3A013210 














AT CORE LOCATION 0008. USE CAUTION. 


3A018220 
















3A018230 












SWITCH SETTINGS MAY BE CHANGED AT ANY TIME. 


3A0 18240 
















3A018250 




B. 


LOADING 




IPL MODE FROM CARDS OR PAPER TAPE 


3A018260 
















3A018270 




C. 


WAIT 


2 




ONE PASS COMPLETED, PRESS START TO CONTINUE. 


3A018280 














1 


3A018290 








3 




NO 


EMITTER RESPONSE INTRPT, RESTART TO CONTINUE 


3A018300 
3A018310 








5 




NO 


SPACE RESPONSE INTERRUPT, RESTART TO CONTINUE 


3A018320 
3A018330 




D. 


RESTART 




PRESS IMMEDIATE STOP AND RESET. PRELOADING 


3A018340 












SWITCHES MAY BE SET AS DESIRED. PRESS START. 


3A01S350 
















3A018360 




E. 


COMMENTS 




TO 


RUN WITHOUT INTERRUPTS. .MANUALLY ENTER 


3A018370 












HEX 600H AT CORE LOCATIONS 0001 AND 003A. 


3A018380 
















3A018390 












TO 


CHANGE POSITIONS PRINTED. .MANUALLY ENTER 


3A018400 












DESIRED PATTERN IN CORE LOCATIONS OOlF AND OOIF. 


3A018410 












AT 


LEAST ONE BIT MUST BE ON IN SECOND WORD OOIF. 


3A01B420 
















3A018430 










»*******♦******♦*♦♦*****♦**♦***********»♦**«♦*♦♦♦*♦ 


3A018440 


0000 












ORG 


3A018450 


0000 





6017 




PRGO 


LDX PRDSW-1 *A* XIO PRSPS SPACE PTR 


3A018460 


0001 





3005 




♦ 




WAIT 5 WAIT FOR INTERRUPT 


3AOl'3470 
3A018480 


0002 





001 A 




PRRDS 


DC PR SWS . 


3A013490 


0003 





OOFF 








DC /OOFF *A* DC /3A32 RD SWS 


3A018500 


0004 





0018 




PRRO 


DC PREMT 


3A018510 


0005 





E8C8 








DC /E8Ca *A* DC /3200 RD EMITTER 


3A018520 


0006 





7013 








DC /7013 


3A018530 


0007 





4803 








DC /4 803 


3A018540 


0008 





0020 




PRIOL 


DC /0020 MINIMUM IDLE SCAN CYCLES 


3A018550 


0009 





OOOA 








DC PRINT INTERRUPT ADDRESS 


3A018560 


OOOA 





0827 




PRINT 


DC /0827 INTERRUPT ENTRY 


3A018570 


OOOB 





080C 








XIO PRDSW 


3A018580 


OOOC 





4850 








BOSC - EMITTER RESPONSE 


3A018590 


0000 





7023 








MDX PRSPR * NO, TRY SPACE RESPONSE 


3A0 18600 


OOOE 





C018 








LO PRSCN+7 


3A018610 


GOOF 





4820 








BSC Z SCAN FIELD ZERO 


3A018620 


0010 





7018 








MDX PRENO * NO, GO STOP PRINTER 


3A018630 


0011 





C039 








LD PROLY 


3A018640 


0012 





4808 








BSC + LAST IDLE SCAN CYCLE 


3A018650 


0013 





7027 








MOX PRPRT * YES, GO PRINT 


3A0ia660 


0014 





9034 








S PR OECRF IDLE COUNT BY ONE 


3A018670 


0015 





0035 








STO PRDLY 


3A018680 


0016 





7023 








MDX PRWT3 


3A018690 


0017 





C0F2 








LD PRINT 


3A018700 


0018 





00E7 




PROSW 


STO PRGO 


3A018710 



0019 





C8EC 




LDD 


PRRD*2 


♦A* DC /3701 SENSE 


DSW 


3A018720 


OOIA 





18C4 


PRSTR 


RTE 


4 






3A0I8730 


OOIB 





DOFO 




STO 


PRDSW4-1 


*A* OC /3430 START 


PTR 


3A018740 


OOIC 





1800 


PRSTP 


RTE 


16 






3A018750 


0010 





nOFD 




STO 


PRSTRtl 


*A* OC /3440 STOP PTR 


3A018760 


OOIE 





F02B 


PRFLD 


FOR 


PROLY-1 


*A* OC /FFFF 




3A018770 


OOIF 





OOFD 




STO 


PRSTP+1 


♦A* OC /FFFF 




3A0l«7RO 


0020 





C8P2 


PRSCN 


LDD 


PRRDS+1 






3A01P790 


0021 





IRC 9 




RTE 


8 






34013S0O 


0022 





aaEO 




AO 


PRRDS+1 






3A018S10 


0023 





08FA 




STO 


PRFLD 






3A018320 


0024 





COEO 




LD 


PRRD+l 






3A018830 


0025 





1302 




SRA 


2 






3A0in840 


0026 





DOOC 




STO 


PRRDS+l 






3A01 J350 


0027 





1008 




SLA 


8 






3/\0l8860 


0028 





OODC 


PRSPS 


STO 


PPRO + 1 






3A0iq870 


0029 





COIC 




LD 


PR-3 


*A* DC /3401 SPACE 


PTR 


3A018880 


002A 





1802 




SRA 


2 






3A018890 


0028 





OOFD 




STO 


PRSPS+1 






3A018900 


002C 





08EF 


PREND 


XIO 


PRSTP 


STOP PRIMTFR 




3A01S910 


0020 





COFC 




LO 


PRSWS 






3A019920 


002E 





4804 




BSC 


E 


BIT SW 15 ilN 




3A018930 


002F 





3002 




WAIT 


2 


* YFS, WAIT 




3A018940 


0030 





70CF 




MOX 


PRGO 






3A018950 


OOIA 







PRSWS 


Equ 


PRSTR 






3A018960 


0018 







PREMT 


EQU 


PRDSW 






3A018970 


0031 





1002 


PRSPR 


SLA 


2 






3A018980 


0032 





4850 




Bnsc 


- 


SPACE RESPLlNSF 




3A0ia990 


0033 





70D7 




MOX 


PRINT+1 


* NO, CHECK DSW ACftlN 




3A019000 


0034 





lOEO 




SLC 


32 






3A019010 


0035 





D'3EA 




STO 


PRSCN 


CLEAR 




3A019020 


0036 





08ER 




STD 


PRSCM+2 


OR SPT 




3A019030 


0037 





nSEC 




STO 


PRSCN+A 


SCAM 




3A019040 


0038 





n8ED 




STD 


PRSCN + 6 


FIFl 




3A019050 


0039 


n 


o^^n 




XIO 


PRSTR 


START PSINTFR 




3A019060 


003A 





3003 


PPWT3 


WAIT 


3 


WAIT FOH PlTFPf^UPT 




3A019070 


003B 





08C6 


PRPRT 


xin 


PRRDS 


PF4D BIT SWITCHFS 




3A019080 


003C 





0«C7 




XIO 


PRRO 


RFAO F-^ITTFR 




3A019090 


030 





CODC 




LO 


"RSWS 


OFT SWS 




JAOIOIOO 


003E 





F'?C9 




OR 


PU IDL 


OR MtNI^UM i.OLr- 




?Aonuo 


003F 


C) 


180 8 




RTE 


3 






3A019120 


0040 





lOT? 




SLA 


8 


ISOLATt CMARACT'^H 




3A010nO 


0041 





4^?0 




riSC 


Z 


SKID IF NO CHAR FMTFP 


FO 


3A01914O 


0042 





F'VIS 




COR 


PREMT 


COMPARE WITH F-^ITteR 




^A019l50 


0043 





4T0 




BSC 


Z 


SKIP IF SAME THAR 




^A0lO16O 


0044 





70FS 




MOX 


p»vT^ 






iAOlOl?; 


0045 





IOC 8 




SLC 


8 






3A019190 


0046 





D004 




STO 


PRDLY 


SET IDLE CnU'^T 




3A010190 


0047 





dOft 




LOD 


PIFLO 






3A0192 )0 


0048 





70EC 




MOX 


PRSPR+4 






3A019210 


0049 





0001 


PR 


DC 


/OOOX 






3A019220 


004A 


n 


ooco 




OC 


/OOCO 






3A01923O 








****«**«**#***** ****<:**i4:»*<,**»*4;^i,!,****:^^i::^*^4<,^,*(t 


3A019240 


004B 





0040 


PRDLY 


nc 


/0040 


THE LAST FTVF WORDS ARF 


3A 01 92 50 


004C 





9000 




DC 


/9000 


* USED FOR PROGRAM 




3A019260 


004D 





2000 




DC 


/2000 


♦ IDENTIFICATION. THREE 


3A01927O 


004F 





1000 




DC 


/lOOO 


♦ FOR THF PID AND TWO 


FOR 


3A019280 


004F 





0040 




DC 


/0040 


* SEQUENCE. 




3Ani9290 


0050 




0000 




END 









3A0 19300 


MO 


STATE^IFNTS 


FLAOG'=D IN THE 


ABOVF ASSEI^Rl Y 
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CPALT 


GOOD 


003E 


0042 








CPBGN 


0000 


OOIC 










CPBLD 


0012 


0000 










CPBSW 


0002 


OOIS 


OOIA 


0010 0021 






CPCTL 


0009 


OOOE 


0018 


003C 003F 






CPDSV 


OOOB 


0022 


0024 


0028 002E 


002F 0032 




CPDSU 


0006 


0002 


0004 


0015 0017 


OOIE 0023 002D 




CPIN4 


002C 


OOOC 


0031 








CPLOP 


0036 


0038 










CPONE 


0001 


0036 










CPRDS 


0010 


0009 










CPRET 


0032 


002B 










CPSEN 


0022 


OOOF 


0011 


0027 0043 






CPSET 


OOOB 


OOIF 


0033 


0040 






CPHRT 


0004 


0012 


0014 


0029 






CRARA 


0036 


0006 


0014 


0045 






CRBGN 


0000 


0039 










CRBLD 


0035 


0000 


0019 


0028 0032 






CRBSW 


0002 


0020 


0030 


0035 0037 






CROSV 


0009 


0010 










CROSH 


0004 


0002 


OOOF 


0016 0031 


0038 003A 003F 




CftENO 


OOOA 


0022 


0047 








CRERR 


0008 


0015 


OOID 


0027 






CRIN4 


OOOE 


OOOC 


0013 








CRLD 


0014 


OOIF 


0021 


0024 0026 






CRLOP 


002A 


OOtC 


002C 








CRMOD 


OOIF 


0018 










CRONE 


0001 


0020 


002A 


003C 003E 






CRROR 


0006 


002E 


0040 


0042 






CRRST 


0030 


0004 


0048 








CRSRA 


OOOB 


0025 


0046 








CRSTR 


002D 


0034 










CR080 


0000 


0043 










DCBGN 


0000 












DCBLD 


0020 


0000 










DCBSW 


0008 


0019 


0022 


0023 003C 


0040 




DCDSH 


004C 


OOOC 


0011 


0028 0045 


0048 




DC END 


004B 


OOIB 


0036 








DCINT 


OOOB 


OOOA 


0010 








DCONl 


0004 


0026 


002A 


002E 






DC0N2 


0006 


0031 










DC0N3 


0000 


0039 










DC ON 5 


0002 


0020 










DCRD 


004E 


002C 


0049 








DCSHS 


0001 


0008 


0015 


0024 003D 






DCWR 


0050 


0030 


0034 


0042 0046 






DCXR3 


0003 


0018 


OOIA 


0035 003F 


0041 




DC I 


003C 


OOIF 










DC 3 


003E 


003A 


0044 








DCS 


0014 


OOID 


0038 








DC 6 


0048 


0013 










OKBDl 


00 OF 


0026 










0KBD2 


0010 


002A 










DKBGN 


0000 


OOIC 










DKBIT 


OOOE 


0002 


OOIB 


0021 0025 


002 8 002C 0031 




OKBLD 


OOIB 


0000 










OKBSW 


0002 


0010 


OOIF 


0020 0030 






OKCON 


0042 


OOIA 










DKDSV 


0008 


0013 


0035 


0036 0030 






DKDSW 


0008 


0012 


0022 


0029 0034 


0045 




OKENT 


0001 


0017 


0037 


003F 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1130 DIMAL-CARD AND PAPER TAPE 

1. PURPOSE 

2. REQUIRENENTS 

2.1 PROGRAM REQUIREMENTS 

** DEVICES-" " """"^ °** "'" "^"*'^ **•'' °**^ °'' ^"^ fOLLONING IPL 

iHpL'^ncS.fff c*' ^^°^ '^*'"' "E*DER. OR 1134 PAPER TAPE READER. 
VllJ DEVICES SHALL BE REFERED TO, COLLECTIVELY, AS INPUT DEVICES 
THROUGHOUT THIS DOCUMENTATION. utVIttS 

B. DIMAL IS CALLED FROM THE DISK PACK BY ONE OF THREE MAYS 

1. CALL CARD « SEE SECTION 3.3.1.1. 

2. CALL TAPE ISEE SECTION 3.3.11. 

3. CONSOLE ENTRY SNITCHES (SEE APPENDIX SECTION 6.1». 

2.2 EQUIPMENT REQUIREMENTS 

A. 1131 CPU. 

B. 4K CORE STORAGE. 

C. ANY OF THE FaLOHING INPUT OEVICES- 

1442 CARD READER, 2501 CARD READER, OR 1134 PAPER TAPE READER. 
0. CONSOLE PRINTER. 

E. DISK DRIVE. 

F. 2315 C.E. DISK PACK. TRACKS 90-110 ARE NOT USED. 

3. USE PROCEDURE 
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I 3.1 INITIAL OIMAL D ISK PACK GENERATION I 

DUclSMT??'2SN??J^''V«Tf"21!'-5 !^ fOLLONED TO LOAD OIMAL AND THE 
DIAGNOSTIC FUNCTION TESTS ON THE C.E. DISK PACK. 

** -?1? '"^ E^CUTE PROGRAM PIO 0308 (2315 DISK INITIALIZATION 

r-S^*!!i ^° ^"^""^ ^"*^ ^"^ °"K SECTORS ARE PROPERLY ADDRESSED* 
AND THAT ANY BAD CYLINDERS ARE DEFINED. ««"«u, 

OPERATiSg^pSkEWrIsT""* ***° "^^ '•OGRAM DOCUMENTATION FOR 

^* ^SJ/J-e*^ EXECUTE PROGRAM PID 0309 (2310 DISK FUNCTION TEST) TO 
INSURE THAT THE DISK DRIVE IS OPERATING CORRECTLY. REFER TO 
PROCEDURES."'*"'"' *'*° "^^ ••"OGRAM DOCUMENTATION FOR OPERATING 

3. AT THE INPUT DEVICE- 

A. CARD READER-1442 OR 2501. 

?hc^f^5°S?*?c°^" •'°'^ '°^''*'^ SYSTEM) IN THE HOPPER BEHIND 
THE 1442 OR 2501 RELOCATING LOADER DEPENDING ON THE INPUT 
DEVICE. HAKE THE CARD READER READY. 

B. PAPER TAPE-1134- 

READ THE PAPER TAPE RELOCATING LOADER IPIO 03AC) INTO CORE. 
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4. 



Vkr^f^cl c '?*t ^"^ "^"* "02» IN THE 113* P.T. READER. 
SET CONSOLE ENTRY SMITCHES TO /0078, SET NODE SWITCH 
TO lOAO, AND PRESS LOAD lAR BUTTON. SET NODE SWITCH 
TO RUN. PRESS THE 1131 CPU START BUTTON. 

«jTiM"L'?Sf^^II "^^"^^ °* '*'*^^ ""O* ^**^ DIAGNOSTIC FUNCTION 
TESTS TO BE LOADED ON THE DISK. 

*. THE FOLLCMING PROGRAMS CAN BE LOADED ON THE OISK- 

1. U30 DIAGNOSTIC PROGRAMS. 

2. RPQ PROGRAMS. 

3. 2250 DISPLAY PROGRAMS. 

*. LATEST LEVEL OF THE 1130 DIAGNOSTIC MONITOR II, 

••• VERY IMPORTANT NOTE*** 

IN GENERAL, ANY PROGRAM TO BE LOADED ON DISK MOST OBSERVE 
THE FOLLCMING RULES TO BE DIMAL COMPATIBLE - 



5. 



1. PROGRAM ID IS THE FIRST MORO IN THE PROGRAM. 

2. PROGRAKS MITH PIDS LESS THAN 9F - MONITOR CONTROLLED 
PROGRAMS- SHOULD NOT HAVE MORE THAN 256 CARDS PER DECK. 

3. IF A NON-MONITOR PROGRAM ORGS AT MORE THAN ONE PLACE. 
THEN EACH ORG ADDRESS MUST BE NUMERICALLY GREATER THAN 
THE PREVIOUS ORG ADDRESS. «.«c«ien inwi 

8. THE FOLLOWING PROGRAMS SHOULD NOT BE LOADED ON THE DISK. 

1. PIO 03A3 BASIC DIAGNOSTIC LOADER. 

2. PID 03A5 ONE-CARD DIAGNOSTIC PROGRAMS. 

3. PID 03A0 BASIC DIAGNOSTIC LOADER-2501. 
*. PID 03A6 CORE STORAGE ADJUSTMENT TEST. 

5. PIDS 03AA, 03AB, 03AC RELOCATABLE LOADERS FOR THE 1442, 
2501, AND PAPER TAPES, RESPECTIVELY. 

6. SCA INTEGRITY TEST. 

T. ONE CARD SCOPE LOOPS P|0 e3A«. 

S. PID 030A DISK ADJUST. 

PLACE THE DFT PROGRAMS IN THE READER BEHIND DIMAL. PATCHED 
mir^.^IL!^,'-''*''^'' PROVIDEO THAT PATCH CARDS ARE INSERTED 
JUST BEFORE THE LAST CARD OF EACH DECK. HEX PATCH CARDS MAY BE 
ENTERED SEPARATELY TO PATCH EXISTING PROGRAMS ALREADY S^ 1"k, 
REFER TO SECTION 3.2.4 FOR DETAILS. 

*•• IMPORTANT NOTE •** 
THE FOLLOWING PROGRAMS CAN NOT BE PATCHED - 

1. 1130 DIAGNOSTIC MONITOR II. 

2. PROGRAMS WITH PIDS GREATER THAN »F. 

3. PROGRAMS PUNCHED IN 8-8 FORMAT. 
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6. 



THE DFT PROGRAM DECKS MAY BE LOADED IN ANY ORDER. 
BLANK CARDS AT THE END OF THE PROGRAMS. 



00 NOT PLACE 



'• SJMir%i!^jD'^y;R?"ltAM;^ 111'' "•* "°^"*'' ^"^ •«"'-'^- 



8. 



II!!?*S!.^?" '^ PRINTED REOUESTING THE AREA CODE FOR THE 
Ai5 PReIs ItIrt!" '*"' "" "'^ '" """'^ siT?CHES ' 



I 


DISK DRIVE 


I 


AREA CODE 


I 














CPU 




/2000 






1 




/8800 






2 




/9000 






3 




/9800 






4 




/ACOO 





P^?«^., ^J^ci^/"'"^^" REOUESTING CE CYLINDER NUMBER. 
«^.IfL'f '^°^S°'-E SWITCHES /00C7 UNLESS OTHERWISE INDICATED 
PRESS STARtT"""^ ""^ ^"' '"^'' 'NITIALIZATION TEST (PIO 0308). 

""^^ ~ fv.JV!. 'I'l^L"""^ REQUEST KEY WAS ACCIOENTLY PRESSED. THE 

« li «P«^^.? c"^^ " RESTARTED. THIS CAN BE ACCOMPLISH- 
ED BY PRESSING STOP, RESET, AND START BUTTONS ON THE 1131 

10. MESSAGE C006 IS PRINTED ASKING THE CE FOR THE NUMBER 

?«/c™.'IL";'Zr''f''"^!* ^'*"" "• ''^^ CONSOLE SWITCHES ONE Of 
THE FOLLOWING NUMBERS-DEPENDING ON THE INPUT DEVICE 
BEING USED- /1442, /2501, /1134. PRESS START. 

"• ^2I!'^il^!Ii'^ OF ERRORS AND OPERATOR ACTIONS IS VIA PRINTOUTS 
AND PROGRAM WAITS. REFER TO SECTION 4.0 PRINTOUTS, AND SECTION 
3.4 PROGRAM WAITS TO DETERMINE WHAT ACTION MOST BE TAKEN 
FOLLOWING A PRINTOUT OR PROGRAM WAIT. 

"* «IiLS'ri„r?J^=o?i5i**^ '"'^"- T"^ """"T °EV«CE GOES NOT READY. 
MESSAGE C007 IS PRINTED ASKING THE CE TO READY THE INPUT DEVICE. 

NOTE - '"CASE OF CARD READER ERROR CHECKS -SUCH AS READ REG- NPRO 

I^n -t!c*!i*.^*^^ '" '^''°" °'' REMAINING DEC/. IN THE HOPPER, 
AND MAKE IT READY. AT THE 1131 CPU, PRESS S'ART. 
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13. AT THE CARD READER PRESS THE START BUTTON. THE READER SHOULD GO 
READY FOR THE LAST CARD. FOR PAPER TAPEt PLACE A STRIP OF 
BLANK TAPE OVER THE READ STATION. 

14. AT THE 1131 CPU PRESS START IF THE INPOT DEVICE IS A 2501 
CARD READER . THE LAST CARD SHOULD READ IN. THIS STEP IS NOT 
REQUIRED FOR A 1442 CARD READER OR 1134 PAPER TAPE READER. 

15. DIMAL PRINTS NESSA6E COOI. 

IF IT IS DESIRED TO LOAD MORE OFT>S READY THE INPUT DEVICE MITH 
DFT PROGRAMS AND PRESS START. OFT LOADING HILL CONTINUE AS 
BEFORE. 

16. IF OFT LOADING IS COMPLETEOt SET CONSOLE ENTRY SNITCHES TO /FFOO 
AND PRESS START. 



I MARNIN6 I 



FAILURE TO SET THE SHITCHES PROPERLY TO /FFOO MILL NOT COMPLETE 
THE GENERATION OF THE DIMAL PACK. RELOADING DIMAL IS NECESSARY. 

17. DIMAL HILL COMPLETE THE GENERATION FUNCTION AND PRINT MESSAGE 
DOOI (LOCATION OIRECTORVI. .PRESS START FOR A LISTING OF THE 
PROGRAMS AND THEIR LOCATIONS ON DISK. 

I NOTE TO CE I 



THE LOCATION DIRECTORY LISTS THE PROGRAM ID. THE ADDRESS OF 
THE STARTING CYLINDER, THE TOTAL NUMBER OF SECTORS OCCUPIED 
BY THE PROGRAM, AND THE STARTING SECTOR. 

KOUEVER, FOR A QUICK REFRENCE TO THE PROGRAMS ON DISK, DIMAL 
OFFERS AN OPTION THAT LISTS ALL THE PIDS HITHOUT THE OTHER 
INFORKATION. IF SUCH AN OPTION IS DESIRED AT THIS POINT 
PRESS STOP, RESET, AND START ON THE 1131 CPU. MESSAGE C004 
(SELECT OPTIQNSI HILL BE PRINTED. REFER TO SECTION 3.2.11 
FOR OPERATING PROCEOWES. 

OPTION 6 AND OPTION S OR B (MIST BE PERFORMED AFTER THE 
PID TABLE HAS BEEN PRINTED. 

IB. MESSAGE D003 IS THEN PRINTED. THIS MESSAGE INDICATES A SEEK 

COUNT HHICH IS REQUIRED BY THE BIT SHITCH ENTERED CALL ROUTINE. 
IT IS SUGGESTED THAT THIS PRINTOUT BE TAPED TO THE CE. DISK 
PACK TO AVOID LOSS. 

19. MESSAGE Ce04 IS PRINTED ASKING THE CE TO SELECT OPTIONS. 
A CALL CARD OR TAPE MUST BE PUNCHED AT THIS TIME. 
REFER TO SECTION 3.2.7 TO PUIUCH A CALL CARD OR 3.2.10 TO PUNCH A 
CALL TAPE. 

**••«**•••«*««*« IMPORTANT NOTE ••••••«•••*••«*••••••«•••• 

• ♦ 

• RUNNING OF THE 2315 DISK INITIALIZATION PROGRAM ON THE • 

• MAINTENANCE LIBRARY PACK HILL CAUSE THE LIBRARY TO BE • 

• DESTROYED. • 
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I 3. 2 EXISTING DIMA L DISK PACK MODIFICATION (LOAOER/ORGANIZcR SECTION) I 

1. GENERAL OPERATING INSTRUCTIONS 



A. PLACE THE CE. DISK PACK CONTAINING THE MAINTENANCE LIBRARY 
ON THE DESIRED DISK DRIVE AND MAKE THE DRIVE READY. 

B. OBTAIN THE CALL CARD OR PAPER TAPE PROVIDED BY 
DIMAL DURING INITIAL DISK LIBRARY GENERATION. 

IF IT IS DESIRED TO CALL DIMAL VIA DATA ENTRY SHITCH CALL 
ROUTINE. REFER TO APPENDIX SECTION 6.1. 

C. SET CONSOLE ENTRY SHITCHES TO /XXOl (HHERE XX IS THE DISK 
AREA COOEI TO CALL THE LOADER/ORGANIZER INTO CORE. 



I 


DISK DRIVE 


I 


AREA CODE 


I 














CPU 




/2001 
















1 




/SBOl 
















2 




/9001 
















3 




/9801 
















4 




/AOOl 















HARHING- FAILURE TO SET 1 IN SHITCH 15 COULD DESTROY THE 
DIRECTORY TABLE DURING 'ADD A PROGRAM* OPTION. 
IT IS RECOMKENDEO THAT OIHAL BE RECALLED HITH THE 
PROPER SETTING OF SHITCHES-REFER TO STEP B ABOVE. 

0. IPL THE CALL CARD OR TAPE. 

E. MESSAGE C006 IS PRINTED ASKING THE CE FOR THE NUMBER 

OF THE INPUT DEVICE. ENTER IN THE CONSOLE SHITCHES ONE OF 
THE FOLLOHING NUHftERS-OEPENOING ON THE INPUT DEVICE 
BEING USED- /1442. /2S01. /1134. PRESS START. 

F. The call card or tape hill first load the DIMAL HEADER TESTS. 
IF THE HEADER TESTS RUN SUCCESSFULLY (RUN TIME APPROXIMATELY 
1 SEC I. The cold start LOADER HILL BE BROUGHT INTO CORE AND 
IN TURN HILL LOAD THE DIMAL LOADER/ORGANIZER SECTION. 

IF AN ERROR HAIT OCCURS. REFER TO SECTION 6.2 FOR ERROR 
PROCEDURE. 

6. THE LOADER/ORGANIZER THEN PRINTS MESSAGE C004. 

TABLE 1 SUHMERIZES THE OPTIONS AVAILABLE HITH THE LOAOER/ 
ORGANIZER SECTION. 

OPERATING PROCEDURES FOR THE OPTIONS FOLLOH TABLE 1. 



3 
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TABLE 1 
L0A0ER/0R6ANIZER OPTION SNITCHES 

••••••••■••••••••••••••••*«••••«•••••••••»••••••»•*••••••••••••••••• ••••••••••< 

CONSOLE ENTRY SM ITCHES • 
01234S6TS9 DESCRIPTION 

.... 1...LIST AIL PIDS ON DISK. 

... 1 PUNCH CALL PAPER TAPE 

. . 1 DELETE HEX PATCHES FOR A CIVEN PID. 

. 1 LIST THE CALL SEEK COUNT REQUIRED BY THE CONSOLE 

ENTRY SNITCH CALL ROUTINES. 

1 PUNCH CALL CARDS. 

LIST CONTENTS OF PATCH TABLE. 

LIST CONTENTS OF LOCATION DIRECTORY. 

ENTER HEX PATCHES SEPARATELY. 

..DELETE PROGRAM. 

ADO PR06RAM. 
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ONLY 1 OPTION AT A TIME MAY BE PERFORMED. OPTION PRIORITY IS FROM 
SWITCH TO SWITCH 9. 

2. ADD PROGRAM TO DIMAL PACR (SNITCH 01 



A. READY TIC INPUT DEVICE NITH THE PROGRAM OR PROGRAMS 
TO BE ADDED. INSURE THAT THE PATCH CARDS IF ANY 
ARE INSERTED JUST BEFORE THE LAST CARD OF EACH DECK. 
DO NOT SEPARATE DECKS WITH BLANK CARDS. 

B. AT THE CPU SET CONSOLE ENTRY SNITCH 0« CLEAR ALL 
OTHERSt AND PRESS START BUTTON. PROGRAMS SHOULD 

READ UNTIL THE READER BECOMES EMPTY OR THE END OF TAPE IS 
R CACHED. 

NOTE-INCASE OF CARD READER ERROR CHECKS -SUCH AS READ RE6- 
NPRO THE CARCISIt PLACE IN FRONT OF REMAINING DECK IN 
THE HCPPERt AND MAKE IT READY. AT THE 1131 CPU. PRESS 
START. 

C. PRESS THE READER START BUTTON TO READY IT FOR THE LAST CARD. 
THIS STEP IS INAPPLICABLE TO PAPER TAPE. 

0. PRESS THE 1131 CPU START BUTTON IF THE INPUT DEVICE IS 
A 2S01 CARD READER. LAST CARD SHOULD READ IN. THIS STE>> 
IS NOT REQUIRED IF THE INPUT DEVICE IS A 1442 CARD READER 
OR AN 1134 PAPER TAPE READER. 

E. MESSAGE COOl IS THEN PRINTED. SET CONSOLE FtfTRY SNITCHES 
TO /FFOO AND PRESS START. 

F. A NEW LISTING OF THE DISK LOCATION DIRECTORY MILL BE 
PROVIDED BY PRESSING START. 

NOTE-IF A DIRECTORY TABLE IS NOT DESIRED AT THIS TIME. 

PRESS THE 1131 STOP, RESET, AND START. THIS NILL ALLOH 
MESSAGE C004 TO BE PRINTED INFORMING THE CE TO SELECT 
OPTIONS. IF A LISTING OF ALL THE PIDS ON DISK IS DESIRED 
REFER TO SECTION 3.2.11 FOR OPERATING PROCEDURES. 



C. 



MESSAGE C004 IS THEN PRINTED INFORMING THE CE. TO SELECT 
OPTIONS. 
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A. SET CONSaE ENTRY SNITCH I, CLEAR ALL OTHERS. AND PRESS 

START. 

B. DIMAL PRINTS MESSAGE C002 INFORMING THE CE. TO ENTER THE 
PID OF THE PROGRAM TO BE DELETED VIA CONSOLE ENTRY SNITCHES. 

C ENTER THE PID OF THE PROGRAM TO DELETE IN CONSOLE ENTRY 
SNITCHES 8 THROUGH 15 AND PRESS START. 

D. DIMAL NILL DELETE THE PROGRAM SPECIFIED AND PRINT A NEN 
LOCATKM DIRECTORY. IF A PROGRAM HAS BEEN LOADED ON THE 
DISK MORE THAN ONCE. THEN THE ABOVE PROCEDURE MUST BE 
REPEATED TO DELETE THAT PID AGAIN. IF THE PROGRAM 

NAS NOT ON DISK, MESSAGE C0D4 IS PRINTED (SELECT OPTIONS). 

NOTE-IF A DIRECTORY TABLE. IS NOT DESIRED AT THIS TIME. 

PRESS THE 1131 STOP, RESET, AND START. THIS NILL ALLON 
MESSAGE C004 TO BE PRINTED ASKING THE CE TO SELECT OPTIONS. 

E. OPERATION COMPLETE IS INDICATED BY MESSAGE C004 INFORMING 
THE CE. TO SELECT OPTIONS. 

4. ENTER HEX PATCH CARDS SEPARATELY. (CARD PROGRAMS ONLY 1 1 SNITCH 2> 



A. SET CONSOLE ENTRY SNITCH 2, CLEAR ALL OTHERS 

B. OBTAIN A COMPLETE SET OF PATCH CARDS FOR THE PROGRAM 
TO NHICH THE CHANGE IS TO BE MADE. 

LIMIT YOUR PATCHES TO A MAXIMUM OF 14 HEX HOROS PER CARD. 
(LEAVE COLUMNS T7-B0 OF THE PATCH CARD BLANK! 

C. PLACE THE PATCH CARDS IN THE HOPPER AND HAKE IT READY. 

D. AT THE 1131 CPU PRESS START. 

E. DIMAL MESSAGE C008 IS PRINTED INFORMING THE CE. TO ENTER 
THE PID OF THE PROGRAM TO BE PATCHED VIA CONSOLE ENTRY 
SNITCHES . ENTER THE PID IN SNITCHES 8 THRU 15. PRESS START. 



F. 



C. 



H. 



I. 



PATCH CARDS HILL READ IN UNTIL THE CARD READER BECOMES 
EMPTY. 

DEPRESS THE READER START BUTTON TO READY IT FOR THE LAST 
CARD. 

DEPRESS THE 1131 CPU START BUTTON IF THE INPUT DEVICE IS 
A 2501 CARD READER. THE LAST CARD SHOULD READ IN. THIS 
STEP IS NOT REQUIRED WHEN USING A 1442 CARD READER. 



DIMAL NESSACE MOZ IS PRINTED. 

A LISTING OF THE PATCH TABLE. 



PHtSS STMT 



OPERATION COMPLETE IS INDICATED BY MESSAGE C0«4 INFOMINC 
THE CE. TO SELECT OPTIONS. 

••• VERY IMPORTANT NOTE»*» 

IF A PROGRAM THAT HAS BEEN LOADED ON DISK REQUIRES PATCHING. 
THEN ANY NEN PATCH CARDS MUST ACCOMPANY OLD PATCHES. THIS IS 
DUE TO THE FACT THAT AS NEW PATCHES FOR A GIVEN PROGRAM ARE 
LOADED, ALL THE OLD PATCHES FOR THAT PROGRAM ARE DELETED 
IN FAVOR OF THE NEW ONES. REFER TO SECTION 3.2.6 FOR A 
LISTING OF THE PATCH TABLE. 
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DATE 
EC NO. 



15FEB68 
42040? 



5. LIST COHTEMTS OF DIMAL LOCATION DIRECTORY CSMITCH 31 



A. SET CONSOLE ENTRY SWITCH 3, CLEAR ALL OTHERS. AND PRESS 
START. 

B. OlMAL KILL LIST THE LOCATION DIRECTORY, MESSAGE 0001. 

C. OFERATiON COMPLETE IS INCICATED BY MESSAGE Ct04 INFORMING 
THE C.E. TO SELECT OPTIONS. 

6. LIST CONTENTS OF DIMAL PATCH TABLE (SWITCH 41 

A. SET CONSOLE ENTRY SWITCH 4, CLEAR ALL OTHERS, AND PRESS 
START. 

B. MESSAGE 0002 IS PRINTED, PATCH CARD TABLE. PRESS START 
FOR A LISTING CF THE PATCH TABLE. 

The typewriter MILL LINE FEED ONE LINE FOR EVERY EMPTY 
SECTOR IN THE PATCH CYLINDER. 

C. OPERATION COMPLETE IS INDICATED BY MESSAGE C004 INFORMING 
THE C.E. TO SELECT OPTIONS. 

7. PUNCH CALL CARDS. (SWITCH 5) 



A. SET CONSOLE ENTRY SWITCH 5, CLEAR ALL OTHERS, AND PRESS 
START. 

B. MESSAGE COOS WILL BE PRINTED. LOAD 1442 WITH BLANK CARDS. 

C. AT THE 1131 CPU, PRESS START. DIMAL SHOULD START PUNCHING 
THE CALL CARD. 

D. OPERATION COMPLETE IS INDICATED BY MESSAGE C004 INFORMING 
THE C.E. TO SELECT OPTIONS. 

E. REMOVE AND SAVE THE PUNCHED CALL CARD. 
e. LIST CALL SEEK COUNT (SWITCH 61 



A. SET CONSOLE ENTRY SWITCH 6, CLEAR ALL OTHERS, AND PRESS 
START. 

B. MESSAGE 0003 WILL BE PRINTED. SAVE THE MESSAGE FOR FUTURE 

C. OPERATION COMPLETE IS INDICATED BY MESSAGE CM4 
INFORMING THE C.E. TO SELECT OPTIONS. 

9. DELETE PATCH CARDS. (SWITCH 71 

A. SET CONSOLE ENTRY SWITCH 7, CLEAR ALL OTHERS AND PRESS 
START. 

B. MESSAGE CO02 WILL BE PRINTED INFORMING THE C.E. TO ENTER THE 
PIO OF THE PROGRAM WHOSE PATCHES ARE TO BE DELETED VIA 
CONSOLE ENTRY SWITCHES. 

C. ENTER THE PIO IN SWITCHES 8 THROUGH 15. PRESS START. 
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E. THE PROGRAM KILL PRINT MESSAGE C004 INFORMING THE CE TO 
SELECT OPTIONS. 

NOTE- NO NEW LISTING OF THE PATCH TABLE WILL BE GIVEN. REFER 
TO SELECT OPTION SWITCH 4 FOR A LISTING OF THE PATCH 
TABLE. 

10. PUNCH CALL PAPER TAPE. (SWITCH 81 

A. SET CONSOLE ENTRY SWITCH 8. CLEAR ALL OTHERS. 

B. READY THE 1055 PAPER TAPE PUNCH WITH BLANK TAPE. 

C. PUNCH A Two INCH LEADER DELETE FIELD. DO NOT PRESS FEED 
B UT T ON • 

0. AT THE 1131 CPU, PRESS START. DIMAL WILL PUNCH THE CALL TAPE. 

E. MESSAGE C004 IS PRINTED INFORMING THE C.E TO SELECT OPTIONS. 

F. REMOVE AND SAVE TAPE. 

!!• LIST A LL PIDS ON DISK. (SWITCH 91 

A. SET CONSOLE ENTRY SWITCH 9, CLEAR ALL OTHERS. PRESS START. 

B. MESSAGE 0004 -PID TABLE- KILL BE PRINTED. PRESS START 
FOR A LISTING. 

C. OPERATION COMPLETE IS INDICATED BY MESSAGE C004 INFORMING 
THE CE TO SELECT OPTIONS. 



I 3.3 DIAGNOSTIC PROGRAM SELECTI ON AND EXECUTION (SELECT/EXECUTE SECTIONI I 
1. GENERAL OPERA TING INSTRUCTIONS 

A. PLACE Tt« C.E. DISK PACK CONTAINING THE MAINTENANCE 
LIBRARY ON THE DESIRED DISK DRIVE AND MAKE THE DRIVE READY. 

B. OBTAIN THE CALL CARD OR PAPER TAPE PROVIDED BY 

DIMAL DURING INITIAL PtSK LIBRARY GENERATION. IF ENTRY SWITCH 
CALL IS DESIRED, REFER TO APPENDIX 6.1. 

C. MAKE THE INPUT DEVICE READY WITH THE CALL CARD OR TAPE. 

0. SET CONSOLE ENTRY SWITCHES TO /XX02 (WHERE XX IS THE DISK 
DRIVE AREA CODE J TO CALL IN THE SELECT/EXECUTE SECTION. 



I 


DISK DRIVE 


I 


AREA CODE 


I 














CPU 




/2ec2 
















1 




/8802 
















2 




/9002 
















3 




/9802 
















4 




/A002 
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F. THE CALL HILL FIRST LOAD THE OIMAL HEADER TESTS. 

IF THE HEADER TESTS RUN SUCCESFULLV (KUN TIME APPROXIMATELY 
1 SECJ THE COLO START LOADER MILL BE BR0U6HT INTO CORE AND 
IT IN TORN MILL LOAD THE OIMAL SELECT/EXECUTE SECTION. 

IF AN ERROR MAIT OCCURS, REFER TO SECTION 6.2 FOR ERROR 

PRKEOURE. 

6. SlCCESSFUL LOADING OF THE SELECT/EXECUTE SECTION IS INDICATED 
BY MESSAGE C009. 

REFER TO SECTIONS 3.3.2 DIAGNOSTIC MONITOR II PROGRAMS SELEC- 
TION OR 3.3.3 SON MONITOR PROGRIHS SELECTION FOR THE 
REMAINDER OF THE OPERATING PROCEDURES. 



I NOTE TO C.E. I 



-DEFINITIONS 



RANDOM PIOS ARE EXECUTED IN THE ORDER SELECTED. 

WARNING 
22S0 DISPLAY PROGRAMS SHOULD 
NOT BE SELECTED TO RUN UNDER 
RANDOM MODE CONTROL. 



SEQUENTIAL PIOS ARE EXECUTED FROM THE LOMEST 

SELECTED PID THROUGH THE HIGHEST 
SELECTED PID. 
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I I. 



B. 



2. DIAGNOSTIC MONITOR II PROGRAMS SELECTIOMS. 



THERE ARE TMO CATEGORIES OF PROGRAM SELECTIONS - 

I. RANDOM - OVERLAP C NON-OVERLAP. 

II. SEOOENTIAL - OVERLAP C NON OVEHLRP. 

REFER TO THE CATEGORY OF INTEREST FOR OPERATING INSTRUCTIONS. 



DATE 
EC NO. 



15FE66B 
420403 



2«AUG6a 
42040 3A 



PROG ID 
PAGE 



e302-« 

4 



F. 



6. 



H. 



I. 



DATE 

EC NO. 



15FEB6B 
42*403 



26AU66B 
42040 3A 



RANDOM - OVERLAP C NON-OVERLAP. 



MESSAGE C009 ISELECT PID OOXXI IS PRINTED UPCM SUCCESS- 
FUL LOADING OF THE SELECT/EXECUTE SECTION. 

IF IT IS DESIRED TO RUN ONE PROGRAM PROCEEi) TO NEXT 
STEP, ELSE SKIP TO STEP D. 

SET /FFXX (WHERE XX IS THE PID OF THE PROGRAM! IN 
CONSOLE ENTRY SWITCHES 8 THROUGH 15 ANO PRESS START. 
THE PURPOSE OF INCLUDING FF WITH THE PID IS TO INFORM 
MONITOR THAT THIS IS THE ONLY PROGRAM SELECTED. 



••• VERY IMPORTANT NOTE ••• 

IF SWITCH 15 IS LEFT ON DUE TO ANY DIMAL SWITCH SETTING 
THE DIAGNOSTIC MONITOR WILL HALT ALL PROGRAM EXECUTION. 
TO RESTART ALL PROGRAMS, SET CONSOLE ENTRY SWITCHES TO 
/0060 ANO PRESS INTERUPT REQUEST KEY. 

UPON COMPLETION OF THE SELECTED PROGRAM RUN, THE 
OIAGMOSTIC MONITOR WILL RETURN TO DIMAL. DIMAL IN 
TURN PRINTS MESSAGE C009. THE NEXT PROGRAM MAY BE 
SELECTED. SEE STEP A ABOVE. 

IF IT IS DESIRED TO RON SEVERAL PROGRAMS, THEN ENTER 
/OOXX - XX IS THE PID - IN CONSOLE SWITCHES 8 THROUGH 15 
AKO PRESS The START BUTTON. 

MESSAGE COlO WILL BE PRINTED ASKING THE CE TO SET SH 
ON FOR SECUENTIAL PIDS. THIS IS RANDOM NODE* THEREFORE, 
SET SW OFF ANO PRESS START. 

THE DIAGNOSTIC MONITOR WILL LOG THE PROGRAM AND RETURN 
TO OIMAL. DIMAL IN TURN WILL PRINT MESSAGE C009 ASKING 
FOR The NEXT PID. 

ENTER THE NEXT PIO AS EXPLAINED IN STEP D. NHEN ITS 
TIME TO SELECT THE LAST PROGRAM, ENTER /FFXX IN SMS 
THROUGH 15, ALSO /OOFF ENTERED AS LAST PIO TELtS 
DIMAL THAT ALL PROGRAMS HAVE BEEN LOAOEO. 

THS DIAGNOSTIC MONITOR WILL LOG ALL THE PROGRAMS 
SELECTED ANO WILL AUTOMATICALLY RUN THEM IN OVERLAP MODE 
IF CORE IS AVAILABLE. REFER TO DIAGNOSTIC NONITOIl 
DOCUMENTATION FOR AVAILABLE OPTIONS. 

UPON COMPLETION OF OVERLAP OPERATION, THE DIAGNOSTIC 
MONITOR WILL NOT RETURN TO DIMAL. TO RETURN TO OINAL* 
USE MONITOR SWITCH SETTING /BOBO. 
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I II. SEQUENTIAL- OVERLAP C NON OVERLAP. 



C. 

D. 
E. 

F. 

6. 

H. 



DATE 
EC NO. 



15FEB68 
*20*P3 



26AUG6S 
420403A 



MESSAGE C009 -SELECT PID (COXXI- IS PRINTED UPON 
SUCCESSFUL LOADING OF THE SELECT/EXECUTE SECTION. 

SET The PIO OF THE DESIRED PROGRAM IN CONSOLE SNITCHES 8 
THROUGH 15. PRESS THE START BUTTON. 

MESSAGE COlO MILL BE PRINTED ASKING THE CE TO SET 
SH ON FOR SEQUENTIAL PROCESSING OF PIDS. 

SET SH ON AND PRESS START. 

MESSAGE coil MILL BE PRINTED REQUESTING LAST PIO IN 
SEQUENCE. 

ENTER THE LAST PID IN SWITCHES 8 THROUGH 15. PRESS 
START. (OVERLAP OR NONOVERLAPI 

MESSAGE C012 MILL BE PRINTED ASKING FOR NODE OF 
OPERATION. 

SET SH 15 OFF FOR NON OVERLAP AND ON FOR OVERLAP 
THEN PRESS START 



*•• VERY IMPORTANT NOTE *•• 

IF SHITCH 15 IS LEFT ON DUE TO ANY DIMAL SNITCH SETTING 
THE DIAGNOSTIC MONITOR HILL HALT ALL PROGRAM EXECUTION, 
TO RESTART ALL PROGRAMSt SET CONSOLE ENTRY SHITCHES TO 
/0080 AND PRESS INTERUPT REQUEST KEY. 

TW DIAGNOSTIC MONITOR MILL LOG EACH PROGRAM LOADED INTO 
CORE AND EXECUTE IT. HOWEVER IF SWITCH 15 HAS SET TO ON 
IN STEP H THEN ALL PROGRAMS HILL BE LOADED INTO CORE 
BEFORE EXECUTION OF ANY PROGRAM STARTS. 

HHENEVER MORE THAN ONE PROGRAM AT A TIME IS IN CORE 
MONITOR HILL AUTOMATICALLY RUN THEM IN OVERLAP MODE. 

REFER TO DIAGNOSTIC MONITOR DOCUMENTATION FOR AVAILABLE 
OPTIONS AND OPERATING PROCEDURES. 

UPON COMPLETION OF NON OVERLAP RUNS OINAL MILL PRINT 
MESSAGE C009. THE NEXT HROCRAM MAY NOH BE SELECTED. 
UPON COMPLETION OF OVERLAP RUNS. DIMAL CONTROL IS LOST. 
TO REGAIN CONTROL, SET THE I-RE6 TO /OOTB AND PRESS 
START. MESSAGE C009 HILL PRINT AND THE NEXT PROGRAMISI 
MAY NOH BE SELECTED. 
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I 3. NON MONITOR PROGRAMS SELECTION I 

THERE ARE THO CATEGORIES OF PROGRAM SELECTIONS- 

I. RANDOM. 

II. SEQUENTIAL. 

REFER TO THE CATEGORY OF INTEREST FOR OPERATING INSTRUCTIONS. 



I. RANDOM 



A. MESSAGE C009 SELECT PIO (OOXX) IS PRINTED UPON SUCCESSFUL 
LOADING OF THE OlMAL SELECT/EXECUTE SECTION. 

B. SET THE PID OF THE DESIRED PROGRAM IN CONSOLE SWITCHES 8 
THROUGH 15 AND PRESS START. 

C. MESSAGE COIO HILL BE PRINTED INFORMING THE CE. TO SET 
SWITCH ON FOR SEQUENTIAL PIDS. THIS IS RANDOM NODE, 
THEREFORE, SET SH OFF AND PRESS START. CONTPOL IS NOH 
TRANSFERED TO THE SELECTED PROGRAM. 

0. UPON COMPLETION OF THE SELECTED TEST, DIMAL 

WILL PRINT PESSA6E C009 TO SELECT PID. ANOTHER PROGRAM 
MAT BE SELECTED NOH. 

NOTE- IF THE PROGRAM SELECTED IS NOT DIMAL COMPATIBLE— MEANING 
IT DOES NOT PROVIDE A BRAKCH TO LOCATION /0078 IN DIMAL- 
CONTROL WILL BE LOST AND MESSAGE C009 HILL NOT BE PRINTED. 
TO REGAIN CONTROL, SET THE I-REG TO /0078 AND PRESS START. 
IF THIS PROCEDURE FAILS, RECALL DIMAL HITH THE CALL CARD 
OR PAPER TAPE. 



II. SEQUENTIAL. 



A. MESSAGE C009 SELECT PID (OOXXI IS PRINTED UPON SUCCESSFUL 
LOADING OF THE DIMAL SELECT/EXECUTE SECTION. 

B. SET THE PIO OF THE DESIRED PROGRAM IN CONSOLE SHITCHES 8 
THROUGH 15 AND PRESS START. 

C. MESSAGE COIO HILL BE PRINTED INFORMING THE CE. TO SET 

SHITCH ON IF SEQUENTIAL PIDS ARE TO BE PROCESSED 

0. SET SH TO THE ON POSITION AND PRES» START. 

E. MESSAGE COll IS PRINTED REQUESTING THE LAST PIO IN SEQUENCE. 

F. ENTER LAST PIO OF SEQUENCE IN SHITCHES 8 THROUGH 15. 
PRESS START. 
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C. THE PROGRAMS MILL NOM BE EXECUTED ONE AT A TIME PROVIDED 
THAT EACH PROGRAM RETURNS TO LOCATION /0078 (DINAL 
COMPATIBLE) AT THE END OF EXECUTION. 

NOTE- IF THE PROGRAM SELECTED IS NOT OIMAL COMPATIBLE — MEANING 
IT DOES NOT PROVIDE A BRANCH TO LOCATION /0078 IN OIMAL- 
CONTRDL HILL BE LOST AND MESSAGE C009 HILL NOT BE PRINTED. 
TO REGAIN CONTROL t SET THE I-REG TO /0078 AND PRESS START. 
IF THIS PROCEDURE FAILS. RECALL DIMAL HITH THE CALL CARD 
OR PAPER TAPE. 

H. UPON COMPLETION CF ALL THE PROGRAMS IN THE 

SEQUENCE* OIMAL HILL PRINT MESSAGE COCN TO SELECT PIO. 
A NEW PIO NAY NOH BE SELECTED. 



3.4 



PROGRAM WAITS 



PROGRAM tiAITS IN DIMAL ARE IDENTIFIED BY REFERENCING THE B REG. 
THE NAITS MAY BE DIVIDED INTO FIVE GROUPS- 

1. NORMAL WAIT AFTER TYPED MESSAGES IS-REC-/3000). 

2. CARD READER FAILURE WAIT B-REG-/30F5. 

2.1 REMOVE CARDS FROM HOPPER. 

2.2 NPRO CARD FROM FEED PATH. 

2.3 PLACE LAST TWO CARDS IN STACKER IN FRONT OF 
HOPPER CARDS AND READY INPUT DEVICE. 

3. FAILURE NAITS IN HEADER TEST OR COLD START LOADER. 

REFER TO APPENDIX SECTION 6.2 FOR EXPLANATION OF 
WAITS. 

4. FAILURE WAITS IN THE LOADER/ORGANIZER SECTION. 

EXPLANATION OF WAITS AND CORRECTIVE ACTIONS 
ARE GIVEN BELOW. 



WAIT EXPLANATION 

30A1 THIS WAIT INDICATES THAT 
THERE ARE NO MORE AVAIL- 
ABLE CYLINDERS ON WHICH 
TO STORE ThF DIAGNOSTIC 
FUNCTION TESTS. 



30A2 THIS WAIT INDICATES THAT 
PATCHES EXCEEDED ONE 
CYLINDER IN LENGTH 
12560 WORDS). 



30E1 THIS WAIT INDICATES THAT 
A OSW ERROR EXISTED ON 
EACH OF 3 ATTEMPTS TO 
READ THE SECTOR ID. 



DATE 
EC NO. 



15FEB68 
420403 



26AU668 
42040 3A 



ACTION 

IF THERE HAS BEEN A 
LARGE AMOUNT OF 
DELETE PROGRAM 
ACTIVITY ON THE 
DIMAL PACK. RELOAD- 
ING ALL DFT>S HILL 
BE NECESSARY TO MAKE 
MORE CYLINDERS 
AVAllABLE. 

SOME PATCHES MUST BE 
DELETED OR NO MORE 
PATCHED PROGRAMS ARE 
ALLOWED TO BE ADDED 
TO THE PACK. REFER 
TO SECTION 3.2.9 KtR 
DELETE PATCH 
PROCEDURE. 

RELOAD THE PROGRAM. 
THE CYLINDER ON 
WHICH THE ATTEMPTED 
READ WAS BEING MADE 
MILL BE BYPASSED. 
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30E3 



THIS HAIT INDICATES THAT 
A DSU ERROR EXISTED ON 
EACH OF 3 ATTEMPTS TO 
WRITE ON THE DISK. 



RELOAD THE PROGRAM. 
THE CYLINDER ON 
HHICH THE ATTEMPTED 
WRITE HAS BEING HADE 
HILL BE BYPASSED. 
FAILURE WAITS IN THE SELECT/EXECUIE SECTION. 
EXPLANATION OF HAITS AND CORRECTIVE ACTIONS 
ARE GIVEN CELOW. 



HAIT EXPLANATION 

30E4 THIS HAIT INDICATES THAT 
A OSH ERROR EXISTED ON 
EACH OF 3 ATTEMPTS TO 
WRITE ON The DISK. 



30E5 THIS HAIT INDICATES THAT 
A OSH ERROR EXISTED ON 
EACrl OF 3 ATTEMPTS TO 
READ DISK. 



ACTION 

RELOAD The PROGRAM. 
THE CYLINDER ON 
HHICH THE ATTEMPTED 
HRITE HAS BEING M(DE 
HILL BE BYPASSED. 

IF IT IS DESIRED TO 
EXECUTE THOSE PROG- 
AKS LOADED. PRESS 
START. IF THAT FAILS 
RECALL THE SELECT/ 
EXECUTE. 



;.5 



RESTART PROCEDURE 



1. OIMAL INITIAL LOADER SECTION 



THERE IS NO RESTART PROCEDURE DURING THE IPL OPERATION. 
IS AVAILABLE ONCE THE INITIAL LOADER IS IN CORE. 

OIMAL COLO START LOADER SECTION 



RESTART 



DEPRESS STOP. RESET AND START. THE COLO START LOADER MILL 
ATTEMPT A RELOAD OF THE SPECIFIED OIMAL SECTION. 
3. DINAL LOADER/ORGANIZER SECTION 



• 



A. INITIAL DISK PACK 6ENERAT10N. 

THERE IS NO RESTART PROCEDURE DURING THIS PHASE. 

-SUGGESTION- 
LOAD ONLY ONE PROGRAM ON DISK DURING THIS PHASE. 
OTHER PROGRAMS MAY BE ADDED USING THE 'ADO A PR06RAN* 
OPTION. REFER TO SECTION 3.2.2. 

B. DISK PACK MODIFICATIOes 

PRESS STOP. KESET AND START. MESSAGE C004 SHOULD BE 
PRINTED. OPTIONS NAY NOH BE SELECTED. 
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DATE 
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I 4. OIHAL SELECT/EXECUTE SECTION I 

A. IF MONITOR IS IN CORE RESTART BY SETTING ENTRY SMITCHES TO 
/SOB* AND PRESSING INTERUPT KEY. 

B. IF SELECT/EXECUTE IS IN CORE PRESS STOPt RESET, AND START. 
5. OIMAL HEADER SECTION 



TO RESTART THE HEADER FROM TEST !• RE-ENTER THE CALL 
CARD. REFER TO SECTION 3.2.1 OR 3.3.1. 

••• VERY IMPORTANT NOTE ••• 

IF THE RESTART PROCEDURES FAIL TO PROVIDE THE DESCRIBED 
RESULTS RECALLING OIMAL WILL BE NECESSARY. REFER TO AREA 
OF INTEREST IN THE DOCUMENTATION. 



4.0 PRINTOUTS 



4.1 



STATUS HESSASCS 



LOADER/ORGANIZER I 



A003 DISK NOT READY 



THIS PRINTOUT INDICATES THAT THE DISK DRIVE IS NOT READY. NAIT UNTIL 
'FILE READY* LIGHT COMES ON. 



SELECT/EXECUTE 



A0C4 DISK NOT READY 



THIS MESSAGE INDICATES THAT THE DISK DRIVE IS NOT READY. NAIT 
UNTIL 'FILE READY' LIGHT COMES ON. 



A005 PROGRAM XX NOT ON DISK 



THIS MESSAGE INFORMS THE C.E. THAT THE PROGRAM SELECTED MAS NOT 
FOUND ON DISK. THE SAME MESSAGE IS PRINTED FOR EACH PID NOT 
FOUNP ON DISK DURING THE SELECTION OF SEQUENTIAL PIOS. 



A006 PROGRAM EXCEEDS CORE LIMIT 



THIS PRINTOUT INDICATES THAT THE OFT SELECTED EXCEEDS THE MAXIMUM 

ALLCUABLE LIMIT. ANOTHER PROGRAM MUST BE SELECTED. 

ALL PREVIOUSLY SELECTED PROGRAMS SHOULD BE AVAILABLE FOR EXECUTION. 



INITIAL LOADER 



AOOT DISK NOT READY 



THIS MESSAGE INDICATES THAT THE DISK DRIVE IS NOT READY. 
UNTIL 'FILE READY* LIGHT COMES ON. 



HAIT 
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DATE 
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EC NO. 


420403 
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Q 



4.2 



COMMAND MESSAGES 



I LOADER/ORGANIZER I 



COOl SET SHS TO /FFOO IF DONE 

THIS MESSAGE IS PRINTED BY THE LOADER/ORGANIZER SECTION MHCN THE LAST 
CARD SEQUENCE HAS BEEN PERFORMED ON INITIAL DISK PACK GENERATION OR 
WHEN USING THE ADD PROGRAM FEATURE. 

IF ALL DESIRED PROGRAMS HAVE BEEN LOADED ON DISK, SET CONSOLE 
SMITCHES TO FFOO AND PRESS START. 

IF MORE PROGRAMS ARE TO BE LOADED, READY THE INPUT DEVICE HITH 
OFT PROGRAMS AND PRESS START. 

C002 ENTER PID (OOXXI TO DELETE IN SHS. 

THIS PRINTOUT OCCURS AS A RESULT OF SELECTING THE DELETE PROGRAM 
OPTION. ENTER THE PIO OF THE PROGRAM TO DELETE IN SNITCHES B 
THROUGH 15. THE PROGRAM PID MILL BE DELETED. A NEW LOCATION 
DIRECTORY IS AN AUTOMATIC FUNCTION OF THE DELETE PROGRAM OPTION. 

THIS MESSAGE ALSO OCCURS HHEN SELECTING THE 'DELETE PATCH CARD' 
OPTION. 

C004 SELECT OPTIONS 

THIS MESSAGE INDICATES THAT THE DIMAL LOADER/ORGANIZER 

IS READY TO BE USED. SELECT THE OPTION DESIRED (REFER TO SECTION 

3.2 FOR OPERATING INSTRUCTIONS I AND PRESS START. 

CODS ROY 1442 HiTH BLANK CARDS 

THIS MESSAGE OCCURS DURING THE PUNCH CALL CARD OPTION. 

READY THE 1442 CRP HITH BLANK CARDS AND PRESS START. THE CARD 

PUNCHED IS THE CALL CARD. SAVE THIS CARD. 

C006 ENTER INPUT DEVICE 1442,2501,1134. 

THIS MESSAGE IS PRINTED DURING THE INITIAL PACK GENERATION 
AND IN THE LOAOER/ORGANIZEk PHASE OF OIMAL. ENTER IN THE 
CONSOLE SWITCHES THE ACTUAL NUMBER IN HEX OF THE DEVICE. 

COOT READY THE INPUT DEVICE. 

THIS MESSAGE IS PRINTED IN THE LOADER ORGANIZER SECTION MHEN 
EVER THE INPUT DEVICE GOES NOT READY. 

COOB ENTER PID OF PROGRAM TO BE PATCHED VIA SMS. 

THIS MESSAGE IS PRINTED DURING SELECT OPTION 2 IN THE LOAOER/ 
ORGANIZER PHASE. REFER TO SECTION 3.2.4. 



DATE 
EC NO. 



15FEB4B 
420403 



2AAU6M 
420403A 
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SELECT/EXECUTE I 



C009 SELECT PROWAM PIO (OOXXI 



THIS PRINTOUT INPORMS THE C.E. TO ENTER THE PID OF Thf Mnoiii -rn .e 
EXECUTED VIA CONSOLE ENTRY SHITCHErs THrSwh "s" ^° " 

COCA YOO HAVE SELECTED PID XX 

JHrCE"^^*S^'?i^~slLE§?fSS'! "*" *•"• ""• " ««^' ^^^" 
COlO SET SU ON FOR SEO PIDS. 

THIS «SSA6E REOUESTS SETTING SH ON FOR PROCESSING SEOUENTIAL PIDS. 
coil ENTER LAST PID OF SE«. 

Jei*,"?"*^^ FOLLONS MESSAGE COlO REQUESTING THE LAST PIO IN Thf 
SEQUENCE TO BE PROCESSED. ENTER IN SMS 8 THROUGH 15. 



C012 SET SM 15 ON FOR OVERLAP. 



lE{%r!5'Sl\?«"n«^If? """" "" INF0RNIN6 THE C.E. TO 
SET SH 15 ON IF HE DESIRES OVERLAP OPERATION. 



I INITIAL LOADER 



C0I3 READY INPUT DEVICE. 



THIS NESSAGE REOUESTS THAT THE INPUT DEVICE BE MADE READY. 

stIrt BmSi!**- "" '" '"' """"^ ""• """s '"^ Ri*D« 



COl* ENTER CE CYLINDER NUNBER. 



THIS PRINTOUT KCURS DURING INITIAL PACK GENERATION. ENTER 
IN CONSOLE ENTRY SKITCHES /00C7 AND PRESS START. 



IMPORTANT NOTE- 



COIS AREA CODE IXXOOI. 



IF THE CE HISTORY TRACK HAS FOUND TO BE BAD 
fil^^^^J"^ RUNNING OF THE DISK INITIALIZATION TEST 
(PIO 03081, THEN THE HISTORY TRACK MUST BE 
ASSIGNED BY THE CE AND ENTERED IN THE SNITCHES 
AS EXPLAINED ABOVE. *"tn.Ht5 



THIS MESSAGE IS PRINTED DURING INITIAL PACK GENERATION ONLY 

PRESS s?aIu '"'""■' '""'^"" '"^ **" ""^ orTHE d?sk°S!;';e. 



DATE 
EC NO. 



15FEB6B 
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42040 3A 
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TION 


I 

DIRECTORY 






LOADER/ORGANIZER I 


0001 LOCA 




PIO 


CYL 


SECT 


TSEC 




02 


XXX 




07 


(1) 


02 


XXX 




01 


12* 


02 


XXX 




10 






XXX 








02 


XXX 




06 




XX 


XXX 




XX 






XXX 









MESSAGE DOOl IS THE LISTING OF THE LOCATION DIRECTORY 

PIO • THE PROGRAM ID 

Mr-r' ^^/"'ST CTLINDERIIN DECIMAL) GN MHICH THE PROCRAH IS SinHFD 

?«r ■ tot/"'" """^ '"* ^"^ DEIGNATEO CYLINDER USED BY THE J^rIn 

pIkrIm! "• ^""'' °' ""°" '"• ''""'*'■• "OUIREO TO SToi^E TH^ 

T[ss'oj-f;i'SiMrs%^iivv::^^s^;" "^^ "•-^" » ^^^'^ ^« ">". 

LINE 1 IS THE HEADER TEST LOCATION 

LIKE 2 IS THE COLO START LOADER LOCATION 

.'".Ilic^c'.t t '"^ ^"^ LO'-CER/CRGANIZER SECTION LOCATION. 
LINE 5 IS THE SELECT, EXECUTE SECTION LOCATION. 

LINE 6 KILL DEFINE THE LOCATION OF THE FIRST OFT LOADED. 

STWE'THE'"pR^<,rS'*"J?Tn?^!! 2?f^ ^"*'* °'*^ CYLINDER IS REQUIRED TO 
if WE THE PROGRAM. SECTOR MILL ALWAYS BE THE FIRST SECTOR USED. 

p*iiN?^;%Si^kE^|RE^'lE'!° '" ''' ''^"^ °' ^"•" ' "^ '• "« ^H^ 



0002 PATCH CARD TABLE 

ALL THE PATCHES CONTAINED ON THE DISK PACK ARE llSTFn TuS c-mmit 

sJCe'prS:?^:;?'^™'^!?^::.'^'""'"*''""^"^ "' ^«^^^^ 

SAVE PRINTOUT FOR REFERENCE. A SAMPLE PRINTOUT IS GIVEN BELOU 

A20C 4000 013B 0001 0000 0000 0000 0000 0000 OCOO 0000 MOO 

WHERE A2 IS THE PIO, OC IS THE NUMBER OF ITEMS ON EACH CARD 
PLUS T«0 KOROS- THE TWO WORDS ARE THE PIC AND R^OCAtToN FACTOR- 
4000 IS THE RELOCATION WORD. 013B IS THE ADDRESS WHERE^HE 
DATA WILL GO. THE REST OF THE CARD IS DATA. 

0003 DATA SW CALL SEEK COUNT IS XX 

MESSAGE 0003 INFORMS THE OPERATOR OF THE SEEK COUNT REOUiaFD lit TiiB 
BIT SWITCH CALL ROUTINE. THIS NUMBER IS IN HEXiSkJnJl ^S 
SHOULD BE INSERTED AS /OOXX. ".uEtiwiL MU 

0004 PID TABLE. 

Hf^^t^^"""* " ^"^ LISTING OF ALL THE PROGRAMS ON DISK. EACH 

PID IS GIVEN AS A TWO DIGIT NUMBER. THE FIRST FOUR PIDS 10202 02 021 

ARE THE OIMAL SECTIONS AND WILL ALWAYS APPEAR BEFORE THE OTHER Jfosf 



DATE 
EC NO. 



15FEB68 
420403 



26AUG68 
42040 3A 
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4.4 



ERROR MESSA6ES 



I LOAOER/ORCANIZER 



E002 DISK SEEK ERRORt PRESS START 

THIS MESSAGE INDICATES THAT A SEEK ERROR HAS OCCUREDt PRESS START 
TO TRY ACAIN. IF ERROR PERSISTS SEVERAL TIMES. REINITIALIZE DISK 
ANO RELOAD OIMAL. 

E«04 PATCH CARD ERROR 

THIS MESSAGE INDICATES THAT A CARD MITH A PUNCH OTHER THAN A 'IZ* 
PUMCH IN COLUMN 1 OF THE PATCH CARD OR A BLANK CARD HAS BEEN 
DETECTED. CHECK THE PATCH CARDS ANO REENTER AFTER CORRECTIONS. 

EOOS CHECKSUM ERROR 

THIS MESSAGE INDICATES THAT A CHECKSUM ERROR HAS BEEN DETECTED DURING 
CARD READ OPERATIONS* 

REMOVE THE CARDS FROM THE HOPPER. NPRO THE CARDS FROM THE FEED 
PATH. THE LAST TUO CARDS IN THE STACKER ARE TO BE CORRECTED ANO 
PLACED IN FRONT OF THE CARDS FROM THE HOPPER. RELOAD CARDS C READY 
INPUT DEVICE. THE FIRST CARD ENTERING THE STACKER IS THE CARD HHILM 
CAUSED THE CHECKSUM ERROR. CHECKSUM IS CAUSED BY CARDS OUT OF 
SEQUENCE OR BY FAULTY PUNCHES (TORN. LACEOt ETC.). CORRECT THE DECK 
ANO PLACE IN THE HOPPER. DO NOT RELOAD THOSE CARDS WHICH HAVE 
BEEN ACCEPTED. READY THE CARD READER AND PRESS THE 1131 CPU START. 

INCASE OF CONSECUTIVE CHECKSUM ERRORSf THE FOLLOMINC PROCEDURE 
IS RECOMMENDED. REMOVE THE DECK CAUSING THE CONTINUOUS CHECKSUM 
ERROR. AT THE 1131 CPUt SET CONSOLE SWITCH 8 ANO PRESS START. 
MESSAGE COOT HILL BE PRINTED. LOAD CARDS IN READER AND MAKE IT 
READY. THIS EXACT PROCEDURE MUST BE FOLLOMEO TO CONTINUE LOADING. 

THE DECK CAUSING THE CHECKSUM ERROR HAY BE ADDED LATER AFTER IT 
HAS BEEN CORRECTED. REFER TO SECTION 3.2.2. 



DATE 

EC NO. 



I5FEB6B 
420403 



26AU6M 
42040 3A 



PROG ID 
PAGE 



•302-* 
11 






• 





• 








o 





o 


o 


o 


o 





o 








o 





e 





























o 


e 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1130 DIMAL-CARD AND PAPER TAPE 



PART NO. 2243961 
PAGE llA 



t 

3 



I SELECT/EXECUTE I 



E009 PIOS ARE INVERTED. 

THIS MESSAGE INDICATES THAT THE LAST PID IN THE SEQUENCE IS LESS 
THAN THE FIRST PID ENTERED. AT THE 1131 CPU PRESS THE START BUTTON. 
MESSAGE C009 IS PRINTED ASKING THE CE TO SELECT PID. REENTER THE 
PID CORRECTLY. 

EOOA DISK SEEK ERROR. PRESS START. 

THIS MESSAGE INDICATES THAT A SEEK ERROR HAS OCCURRED. PRESS START 
TO TRY AGAIN. IF ERROR PERSISTS SEVERAL TIMES, REINITIALIZE THE 
DISK AND RELOAD OIMAL. 

EOOB PIDS ARE INCOMPATIBLE 

THIS PRINTOUT OCCURS IF THE LAST PID SELECTED DURING THE SELECTION 
OF SEQUENTIAL PIDS IS A DIFFERENT TYPE THAN THE FIRST PID ENTERED. 
ALL MONITOR COfkTROLLEO PROGRAMS HAVE PIDS LESS THAN 9F. ALL NON- 
MONITOR PROGRAMS HAVE PIDS GREATER THAN /9F. PRESS THE START BUTTON 
ON THE 1131 CPU. MESSAGE C009 IS PRINTED ISELECT PID OOXXt. 
REENTER THE PIDS CORRECTLY. 

EXAMPLE OF THE ABOVE ERROR- 
FIRST PID ENTERED (00311* LAST PID ENTERED lOMll. 



INITIAL LOADER I 



EOOC DISK SEEK ERROR. PRESS START 

THIS MESSAGE INDICATES THAT A SEEK ERROR HAS OCCUREO. PRESS START 
TO TRY AGAIN. IF ERROR PERSISTS SEVERAL TIMES, REINITIALIZE DISK 
AND RELOAD OIMAL. 

EOOO DISK MRITE ERROR. 

THIS MESSAGE INDICATES THAT A OSM ERROR EXISTED ON EACH OF 3 
ATTEMPTS TO WRITE ON THE DISK. THE PROGRAM BEING 

LOADED AT THE TIME THE ERROR OCCURRED MUST BE REL8ADED. THE CVLIMDEIl 
ON WHICH THE ATTEMPTED WRITE WAS BEING MADE WILL BE BYPASSED. 

EOOE DISK READ ERROR. 

THIS MESSAGE INDICATES THAT A DSH ERROR EXISTED ON EACH OF 3 ATTEMPTS 
TO READ THE SECTOR ID. THE PROGRAM WHICH WAS BEING LOADED AT THE 
TIME OF THE ERROR MUST BE RELOADED. THE CYLINDER ON WHICH THE 
ATTEMPTED READ WAS BEING MADE WILL BE BYPASSED. 



o 
o 





o 

Q 



o 



o 



EOOF WRONG LOADER 



THIS MESSAGE INDICATES THAT A WRONG LOADER IS BEING USED ON 
INPUT DEVICE. CHECK THE LOADER AND RELOAD OIMAL. 



DATE 
EC NO. 



1SFEB68 
420403 



26AU66a 
420403A 
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THIS PRINTOUT INFORMS THE CE THAT THE DINAL DECK MAS SOME 

CARDS OUT OP SEQUENCE. CHECK DIMAL FOR MISSING CARDS. (ESPECIALLV 

END CARDSf OR FOP. OUT OF SEQUENCE CAROSI RELOAD. 

E017 CE NORO NOT FOUND ON DISK. 

THIS MESSAGE OCCURS IF THE CE HORO l/CEDCI HAS NOT FOUND ON 
THE CE HISTORY TRACK. PRESS THE 1131 CPU START BUTTON TO 
SEARCH FOR IT AGAIN. IF THE RETRY FAILSt THE DISK PACK MUST 
BE REINITIALIZED AGAIN (PIO 0308). 

EOIB DISK HAS MORE THAN 3 BAD CYLINDERS. 

THIS MESSAGE INDICATES THAT THERE ARE MORE THAN 3 BAD CYLINDERS 
ON THE PACK. IT IS RECOHHENDEO THAT THE PACK BE REPLACED MITH 
A NEM PACK. PROCEEDING MAT CAUSE OTHER PROBLEMS. 

E019 CHECKSUM ERROR. 

THIS MESSAGE INDICATES THAT A CHECKSUM ERROR HAS BEEN 
DETECTED DURING CARD READ OPERATIONS. 

AT THE CARD READER* REMOVE THE CARDS FROM THE HOPPER. DEPRESS THE 
NPRO BUTTON. THE FIRST CARD ENTERING THE STACKER IS THE CARD WHICH 
CAUSED THE CHECKSUM ERROR. CHECK IF THAT CARD HAS IN CORRECT SEQUENCE 
("MPROPER SEQUENCE HILL CAUSE CHECKSUM ERRORS). IF CARDS HERE OUT OF 
SEOUEKCEt CORRECT AND PLACE IN THE READ HOPPER. DO NOT RELOAD THOSE 
CARDS KHICH HAVE BEEN ACCEPTED. READY THE READER AND PRESS CPU 
START BUTTON. 
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I 5. COMMENTS I 



THE DIMAL SYSTEM IS DIVIDED INTO 5 MAJOR SECTIONS 

1. DIMAL INITIAL LOADER 

2. DIMAL HEADER SECTION 

3. DIMAL COLO START LOADER 

6. DIMAL LOADER/ORGANIZER SECTION 
S. DIMAL SELECT/EXECUTE SECTION 



5.1 



DATE 
EC NO. 



15FEB68 
420403 



INITIAL LOADER 



THE INITIAL LOADER FUNCTION IS TO INPUT THE DIMAL OBJECT DECK, WRITE 
IT ON THE DISK AND THEN CALL IN THE COLD START LOADER HHICH IN 
TURN INPUTS THE LOADER/ORGANIZER SECTION. THE LOADER/ORGANIZER 
SECTION IS THEN USED TO INPUT THE DFT'S FOR INCLUSION 
ON THE DISK PACK. 

THE INITIAL LOADER HILL MAKE A CHECK TO INSURE THAT THE CE. I^^ACK 
HAS BEEN PLACED ON THE SPECIFIED DRIVE. THIS IS DONE BY READING 
SECTOR 3 OF ThE HISTORY TRACK AND CHECKING WORD 2 FOR /CEDC. 
THE LOADER HILL THEN DEFINE THE FIRST EIGHT USABLE CYLINDERS, START- 
ING AT CYLINDER 6, AS THE DIMAL CYLINDERS. THESE CYLINDERS ARE 
USED AS FGLLOHS- 

IST CYLINDER - HEADER TEST AND COLO START LOADER. 

2ND CYLINDER - LOADER/CRGANIZER 

3RD CYLINDER - LOADER/ORGANIZER 

4R0 CYLINDER - SELECT/EXECUTE SECTION 

5TH CYLINDER - HORK CYLINDER 1 

6TH CYLINDER - HORK CYLINDER 2 

7TH CYLINDER - LOCATION DIRECTORY 

BTH CYLINDER - PATCH CARDS 

THE ADDRESSES FOR THESE CYLINDERS HILL BE PLACED IN A USE TABLE. THE 
USE TABLE HILL BE INCLUDED IN THE COLD START LOADER, LOADER /ORGANIZER 
SECTION AND THE SELECT/EXECUTE SECTION PRIOR TO WRITING THESE 
SECTIONS ON THE DISK. 

THE DIMAL DECK IS THEN READ IN AND STORED ON THE DISK AT THE ASSIGNED 
CYLINDERS. UPON COMPLETION OF THE LOADER OPERATION THE INITIAL LOADER 
HILL HRITE THE HORD /ABCD ON SECTOR OF THE HISTORY TRACK TO 
DEFINE THE DISK PACK AS CONTAINING DIMAL. THE LOADER THEN CALLS INTO 
CORE, THE COLD START LOADER AND SETS UP THE NECESSARY CONTROL TO 
BRING IN THE LOADER/ORGANIZER SECTION. THE INITIAL LOADER THEN 
BRANCHES TO THE COLD START LOADER WHICH INPUTS THE LOADER/ORGANIZER 
SECTION AND GIVES CONTROL TO IT. 
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5.2 



S.3 



DATE 
EC NO. 



15FEB68 
420403 



DIMAL HEADER SECTIONS 



THE PURPOSE OF THE HEADER SECTIONS IS TO TEST MOST OF THE 1130 
INSTRUCTION SET. EACH TEST OCCUPIES ONE SECTOR OF THE FIRST 
DIMAL CYLINDER. 

THE FOLLOWING INSTRUCTIONS ARE NOT CHECKED BY THE HEADER SECTION. 



DOUBLE ADD (ADI 
DOUBLE SUBSTRACT (SOI 



MULTIPLY (HI 
DIVIDE (01 
EXECUTE I/O (XIDI 



TEST 1 

CHECKS OPERATION OF MDX, BSC AND EOK SHORT FORM. CHECKS THE ABILITY 
OF THE * REG TO HOLD I'S. TO LOAD I'S ON TOP OF I'S AND TO LOAD 0»S 
ON TOP OF I'S. ALSO CHECKED IS THE FLAG BIT AND INDIRECT ADDRESSING. 

TEST 2 

CHECKS DATA ENTRY SWITCHES. CHECK INSTRUCTION BSI* SRA, AND. OR. 
MOX LONG, RTE AND SRT. 

TEST 3 

CHECKS INSTRUCTIONS RTE. SLA, SLT, STO AND STS. 

TEST « 

CHECKS INSTRUCTIONS BSC. BSI AND LOX. 

TEST 5 

CHECKS INSTRUCTIONS LOX, STX AND A. 

TEST 6 

CHECKS INDEXING. BSC INDEXED, MOX. AND SUBTRACT INSTRUCTIONS 

TEST 7 

CHECKS INSTRUCTItMS SLC, SLCA. LOD, AND STO. 

THE HEADER SECTION CONTAINS THE CONTROL NECESSARY FOR LOOPING ERRORS, 
LOOPING INSTRUCTIONS, AND BYPASSING ERROR WAITS DURING TROUBLE SHOOT- 
ING. REFER TO SECTION 6.2 FOR HEADER TEST ERROR PROCEDURES. 

COLO START LOADER 



c 

G 

e 



O 

e 
o 



o 



IT IS THE FUNCTION OF THE COLD START LOADER TO INPUT THE DIMAL 
SECTION SPECIFiEO BY THE COLD START CALL CARD OR TAPE. 

DURING INITIAL DIMAL DISK PACK GENERATION, THE INITIAL LOADER CALLS 
THE COLD START LOADER TO INPUT THE LOADER/ORGANIZER SECTION OF DIMAL. 
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DURING ONE CARD, PAPER TAPE, OR CONSOLE ENTRY SWITCH CALLS, 
THE COLP START LOADER IS BROUGHT INTO CORE BY HEADER TEST 7 AFTER 
SUCCESSFUL OPERATION OF THE HEADER SECTION. THE COLO START LOADER 
THEN REFERENCES A CONSTANT CONTAINED IN THE CALL ( LOCAT ION -/OOOF I 
TO DETERMINE WHICH DIMAL SECTION TO LOAD. IT WILL LOAD THAT 
SECTION AND BRANCH TO IT. 

THE COLD START LOADER IS STORED ON SECTOR 7 OF THE FJRST DIMAL 
CYLINDER AND IS LOADED INTO CORE AT LOCATION /ODAC. 

DIMAL LOADER/ORGANIZER SECTION 



IT IS THE FUNCTION OF THE LOADER/ORGANIZER SECTION TO INPUT THE 
DIAGNOSTIC PROGRAMS AND WRITE THEM ON THE DISK PACK. THIS 
SECTION IS ALSO USED TO MODIFY A PREVIOUSLY GENERATED DIMAL PACK. 

THE LOADER/ORGANIZER SECTION IS CALLED FROM DISK BY THE INITIAL 
LOADER. 

WHEN GENERATING A NEW PACK, THIS SECTION WILL FIRST UPDATE THE 
LOCATION DIRECTORY TO INCLUDE THE LOCATION OF THE DIMAL SYSTEM ON THE 
DISK PACK. THE SECTION THEN PREPARES TO INPUT THE PROGRAM DECKS. 
PRIOR TO USING ANY CYLINDER FOR PROGRAM STORAGE, THE CYLINDER IS 
CHECKED FOR A USABLE CDSOITION. ALL BAD CYLINDERS ARE BYPASSED. 
A BAD CYLINDER IS DEFINED AS A CYLINDER WHERE ALL SECTORS CAN'T 
BE PROPERLY WRITTEN AND READ. 

THE PROGRAMS ARE STORED ON DISK ACCORDING TO THE FOLLOWING SCHEME. 

Al PROGRAMS WITH PIDS GREATER THAN /0C9F. ARE NON MONITOR 

DEPEWcNT PRG&P.tKS «KD ARE STORED ON DISK IN CORE IMAGE, 

320 KDKCS PER SECTC-;. 
Bl PROCRAKS WITH PIDS LESS THAN /009F, ARE MONITOR OEPE+lDENT 

PROGRAMS AND ARE STORED ON DISK IN CARD IMAGE, 4 CARDS PER 

SECTOR. 



••• VERY IMPORTANT NOTE **• 

MONITOR CONTROLLED PROGRAMS (PIDS 9F AND LESSI SliOULO NOT HAVE 
MORE THAN 2S6 CARDS PER DECK. 



THE IMAGE USED IS ENTFRED IN THE IMAGE INDICATOR (0-CORE IMAGE, 

1 - CARD IMAGE I WHICH IS CONTAINED IN THE LOCATION DIRECTORY ENTRIES 

FOR EACH PROGRAM. 

CARD 1 (HEADER CARD! OF THE 12-4 DECKS IS NOT STORED ON THE DISK NOR 
ARE THE CARDS WHICH C0'4TAIN THE WAIT OR TRAP CONSTANTS USED IN 
THE WAIT DESCRIPTION AT THE FRONT OF THE PROGRAM LISTING. THESE 
ARE IDENTIFIED BY ADDRESS STARTING AT 3001 OR 7001. 

WHEN WRITING PROGRAMS ON DISK IN CORE IMtGE, ALL BLOCKS OF STORAGE 
RESERVED BY THE PROGRAM (DEFINED BY BSS STATEMENTSI ARE WRITTEN AS 
ZEROS ON DISK. 

THE NUMBER OF SECTORS USED, THE ADDRESSES OF ALL CYLINDERS USED, 
THE PROGRAM ORG ADDRESS AND THE PROGRAM TRANSFER ADDRESS ARE SAVED 
FOR INCLUSION IN THE LOCATION DIRECTORY. 

THE LOCATION DIRECTORY IS UPDATED FOR EACH PROGRAM UPON ENTERING 
/FFOO IN THE ENTRY SWITCHES. THE LOCATION DIRECTORY FORMAT FOLLOWS - 
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• PROGRAM PID • TYPE • 

• TOTAL SECTORS* TOTAL CYLINDERS • 

• ORG. 3DDRESS • 

• 1ST CYLINDER ADDRESS • 

• 2ND CYLINDER ADDRESS • 

• 3RD CYLINDER ADDRESS • 

• 4TH CYLINDER ADOKESS • 

• STH CYLINDER ADDRESS • 

• 6TH CYLINDER ADDRESS • 

• 7TH CYLINDER ADDRESS • 

• 6TH CYLINDER ADDRESS • 

• PROGRAM TRANSFER ADDRESS • 

BIT 15 OF THE FIRST ENTRY IS THE IMAGE INDICATOR DESCRIBED 
PREVIOUSLY. 

IF A PROGRAM DOES NOT REQUIRE 8 CYLINDERS FOR STORAGE. THEN ZEROS 
ARE PLACED AS ADDRESSES. REGARDLESS OF HOW MANY CYLINDERS USED, THE 
FORMAT OF THE TABLE HILL ALWAYS BE THE SAKE. (TWELVE ENTRIES PER 
TABLE). 



o o 
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IF A PROGRAM HAS PATCH CARDS BEHIND IT. THE PATCH CARDS MILL BE 
ENTERED IN THE PATCH TABLE ALONG WITH THE PID OF THAT PROGRAM. 
PREVIOUS PATCHES FOR THAT PID HILL BE DELETED. 



ALL 



AS EACH NEH PROGRAM IS READ IN. IT MILL BE WRITTEN ON THE NEXT 
AVAILABLE SECTOR. THEREFORE A PROGRAM HAY START ON ANY SECTOR OF 
THE CYLINDER PRESENTLY BEING USED. AFTER SECTOR 7 HAS BEEN HRITTEN, 
PROGRAM STORAGE HILL CONTINUE ON THE NEXT SEQUENTIAL AVAILABLE 
CYLINDER. SECTOR ZERO. TRACKS 90-110 AND 199 ARE NOT USED. 

HHEN ALL PROGRAMS HAVE BEEN HRITTEN ON THE DISK. THE LOADER/ORGANIZER 
SECTION WILL SAVE THE NEXT AVAILABLE STORAGE SECTOR BY WRITING ITS 
ADDRESS ON SECTOR 0. HORO 3 OF THE CE HISTORY TRACK. THE SECTION 
THEN LISTS THE CtMTENTS OF THE LOCATION DIRECTORY AND PRINTS A SEER 
COUNT TO BE USED HHEN ENTERING THE CALL VIA THE ENTRY SWITCHES 

SUBROUTINE DLPGN IS USED TO DELETE PROGRAMS. THIS SUBROUTINE REMOVES 
ALL ENTRIES FRW THE LOCATION DIRECTORY WHICH PERTAIN TO THE PID 
SPECIFIED TO BE DELETED. A NEW LISTING OF THE LOCATION DIRECTORY 
FOLLOWS AUTOMATICALLY. ITHE PROGRAM ITSELF IS NOT ERASED FROM THE 
DISK. ONLY THE LOCATION DIRECTORY ENTRIES). 
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OIMAL SELECT/EXECUTE SECTION 



••• NOTE ••• 

INTERRUPT REQUEST KEY AND START BUTTON PERFORM 
THE SAME FUNCTION IN THIS SECTION. 

THE PURPOSE OF THIS SECTION IS TO CALL INTO CORE. FROM DISK. THE 
DIAGNOSTIC PROGRAM SPECIFIED BY THE OPERATOR. 

THE SELECT/EXECUTE SECTION IS CALLED INTO CORE BY AN IPL CALL CARD* 
A PAPER TAPE CALL STRlPr OR A CALL ROUTINE ENTERED VIA THE SWITCHES. 



THE SELECT/EXECUTE SECTION IS DIVIDED INTO TWO 
PORTION. AND THE MAIN BODY OF THE SECTION. 



PARTS. A RESIDENT 



THE RESIDENT PORTION PERM»NENTLY RESIDES IN CORE FROM LOCATION /OOIF 
THROUGH /0160 . ALL PROGRAMS WHICH RETURN TO CIHAL WILL DO SO VIA 
THE INTERFACE ENTERING AT LCCATIOM /0078. THE MAIN PORTION OF 
DIMAL ALSO ENTERS THE RESIDENT PORTION TO LOAD ABSOLUTE PROGRAMS OR 
PRIOR TO TRANSFERING CONTROL TO A MONITOR PROGRAM. 

THE MAIN BODY OF THE SELECT/EXECUTE SECTION SHARES CORE LOCATIONS 
/0160 TO /05DC WITH EITHER MONITOR OR A NON MONITOR PROGRAM 

WHEN A PROGRAM HAS BEEN ENTERED IN THE CONSOLE ENTRY SNITCHES FOR 

SELECTION. THE DIMAL SECTION WILL DETERMINE WHETHER THE 

PROGRAM IS MONITOR DEPE^^DENT OR STAND-ALONE. NON MONITOR DEPENDENT. 



STAND ALONE PROGRIMS I 



IF A STAND-ALONE PROGRAM IS BEING REQUESTED, THE SELECT/EXECUTE SEC- 
TION WILL SEARCH THE LOCATION DIRECTORY FOR THAT PID. HHEN THE PID IS 
FOUND. IT'S LOCATION ON DISK HILL BE STORED IN THE RESIDENT SECTION 
AND CONTROL GIVEN TO THE RESIDENT SECTION. 

THE RESIDENT SECTION HILL INPUT THE SELECTED DIAGNOSTIC PROGRAM AND 
BRANCH TO IT. OIMAL CONTROL IS LOST AT THIS POINT UNLESS THE 
PROGRAM PROVIDES A BRANCH TO LOCATION /0078. 

THE OIMAL SECTION MAY BE RELOADED BY SETTING THE 1 REG TO HEX /0078 
AND CONTINUING FROM THAT POINT. IF SEQUENTIAL PIDS ARE TO BE 
EXECUTED, THE SELECTION OF THE NEXT PID IS AUTOMATIC. 
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I 01 AGNOSTIC MONITOR DEPENDENT PROGRAMS 



OIMAL IN NO MAY AFFECTS THE OPERATION OF THE 01 AGNOSTIC MONITOR. 

NHEN THE PID ENTERED IN THE CONSOLE ENTRY SWITCHES IS A DIAGNOSTIC 
MONITOR DEPENDENT PROGRAM, THE OIMAL SECTION MILL PUT MONITOR ON 
WORKING CYLINDER ZERO. 

OIMAL HILL LOCATE THE SELECTED PROGRAM ON DISK, LOAD IT INTO CORE, 
RELOCATE IT, EFFECT A CORE SWAP OF DIMAL AND MONITOR, AND BRANCH 
TO THE PROGRAM JUST LOADED. 

UPON PROGRAM TERMINATION, THE MONITOR WILL RETURN TO THE INTERFACE 
SECTION, AGAIN THE CORE SWAP WILL OCCUR AND THE DIMAL SECTION MILt 
SET UP TO ALLOW SELECTION OF THE NEXT DIAGNOSTIC PROGRAM. 
IN THE OVERLAP MODE OF OPERATION, THE DM WILL RETURN TO DIMAL AFTER 
EACH PROGRAM HAS BEEN LOADED FOR THE NEXT PROGRAM SELECTION. TO 
INDICATE THAT THE LAST PROGRAM IS LOADED. SWITCHES 8 THROUGH 15 
SHOULD BE SET TO DOFF. 

TO RETURN TO OIMAL FROM OVERLAP OPERATIONS, REFER TO MONITOR -LOAD 
PROGRAM OPTION. 



26AUGM 
4204«3A 



PROG 10 
PAGE 



e 


o 





G 





O 


9 




e 




• 




e 




e 




e 




o 




• 




o 














e 





0302-* 
15 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1130 OIMAL-CARD AND PAPER TAPE 

*. APPENDIX 



PART NO. 2243961 
PAGE X5A 



6.1 CONSOLE ENTRY SWITCHES CALL ROUTINE. 






DATE 
EC NO. 



15FEB66 
42*403 



THIS ROUTINE NAY BE USED TO CALL DIMAL FROM DISK TO CORE STORAGE. 
TO ENTER THE CALL ROUTINE PROCEED AS FOLLOHS- 

1. MOUNT THE DIMAL PACK AS EXPLAINED IN SECTION 3.3.1. 

2. SET THE MODE SWITCH TO LOAD. 

3. INSURE THAT THE I COUNTER IS AT /0014. 

4. ENTER THE HEX INSTRUCTIONS PROVIDED ON THE NEXT PAGE IN Tt« 
ENTRY SWITCHES PRESSING THE START BUTTON AFTER EACH ENTRY. 



I ••• VERY IMPORTANT NOTE ••• I 



MAKE SURE THAT YOU ENTER THE CALL SEEK COUNT IN LOCATION 
OF THIS ROUTINE. 



5. AFTER ALL THE INSTRUCTIONS HAVE BEEN ENTERED, SET THE BEGINNING 
ADDRESS /00I9 IN THE CONSOLE ENTRY SWITCHES, PRESS THE LOAD lAR 
BUTTON. SET THE MODE SWITCH TO RUN, PRESS START. 

6. THE ROUTINE WILL WAIT 430OAI AT LOCATION /0021 SET DISK AREA 
CODE IN ENTRY SWITCHES 0-8 AT THIS WAIT. 

7. THE ROUTINE WILL WAIT (300C) AT LOCATION /0025 SET THE CALL 
CODE AT THE WAIT. THE CODE IS /OOOl FOR LOADER ORGANIZER, /0002 
FOR SELECT EXECUTE. 
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LOCATII 

0014 

0015 

0017 

0019 

OOIB 

0010 

001 F 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

C02A 

002B 

002C 

0020 

002E 

002 F 

0030 

0031 

0032 

0033 

0034 

•035 

0036 

0037 

003B 

0039 

003A 

•03B 

•03C 

003D 

003E 

003F 

0040 

0041 

0042 

0043 

0044 

0045 

•046 

0047 

•948 

•049 

004A 

•04B 

•04C 

004D 



CALL ROUTINE 

• !HST(lOCTIONS»LABEL»OPEft*FT»OPERANO ♦ RENABKS 
OOOC INTP DC *-• 
OCOO 0046 XIO L RESAT-1 SENSE-NORESET 



4CC0 0014 

6500 0014 

6D00 OOOA 

6500 0141 

6000 004E 

300A 
0807 
C008 
0OE9 
300C 
0803 
C004 
0OE6 
7003 
002C 
3A00 
0000 
0818 

1002 
4808 

70FC 

1802 

48C4 
7005 

0813 

3002 

1004 
4810 

70FB 

0810 

3003 

0810 

3004 

COOC 

1003 

FOOF 

4820 

70F2 

C0F3 

OOFO 

700C 

0000 

0000 

2701 

0001 

2404 

0000 

2400 

004E 

2600 



BOSC I INTP 
LDX LI INTP 
STX LI /OOOA 
LDX LI /0141 
STX LI /004E 



WAIT 
XIO 
LD 
STO 
WAIT 
XIO 
LD 
STO 
NOX 
RBITS DC 
DC 
AORS DC 
B00T2 KIO 
SLA 
BSC 
MDX 
SRA 
BSC 
HOX 
XIO 
HAIT 
SLA 
BSC 
MOX 
XIO 
HAIT 
XIC 
WAIT 
LD 
SLA 
EOR 
BSC 
MDX 
LO 
STO 
MOX 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



B13SC 
XTA61 

B44SD 



XTAC2 



RESAT 
SEEKB 

SEEKT 
REED 
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/A 

RBITS 

AORS 

/OOOE 

/C 

RBITS 

AORS 

/OOOF 

BOOT-; 

AORS 

/3A00 

•-• 

RESAT-1 

2 

♦ 

BOOT 2 

2 

E 

B44S0 

SEEKB-1 



B13SD 

SEEKT-l 

3 

REED-1 

4 

SEEKT-l 

3 

800T14'79 

Z 

B13SD 

XTAGl 

XTAG2 

BOOTli^Bl 

m-^ 

*-• 

/2701 

1 

/2404 

»-* 

/2400 

/004E 

/2600 



RESET INTR -i-EXlT 

PICKUP INTR VCTR 

STORE IN LOC A 

LOAD WORD COUNT 

STORE IN LOC 4£ 

ENTER AREA CODE 
READ DATA ENT SH 
LOAD CONTENTS 
STORE IN LOC E 
ENTER TYPE OF CALL 
READ DATA ENT SM 
LOAD CONTNETS 
STORE IN LOC F 
BR. AROUND CONST 

READ DES lOCC 

SENSE DISK STATUS 

TEST FOR READY NOT BUSY 

SKIP IF OFF 

LOOP UNTIL READY 

TEST FOR 13SD 

13SD IF BIT OFF 

ELSE BRANCH 

ISSUE SEEK HOME COMMAND 

POSITION HOME BIT 
SKIP IF ON 

LOOP UNTIL DISK IS HOME 
SEEK TO DESIRED CYLINDER 

READ ONE SECTOR 

TEST FOR CORRECT CVL POSITION 

POSITION BITS 

CHECK FOR PROPER ADDRESS 

IF YES SKIP 

ELSE RETRY 

GET A 'NOP* INSTRUCTION 

CHANGE ABOVE 'MOX* TO A 'NOP* 

BRANCH TO 1ST HE'DER TEST 



SENSE AND RESET lOCC 

SEEK HOME lOCC 

SEEK FORWARD lOCC 
WORD COUNT ADDRESS 
READ lOCC 
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6.2 DIMAL HEADER TEST ERROR PROCEDURE 

THE HEADER TEST IS DIVIDED INTO 7 TEST SECTIONS ITESTS 1 THROUGH 7). 
EACH TEST SECTION HAS ITS OWN PROGRAM LISTING. TOGETHER THESE TESTS 
COMPRISE AN ABREVIATION OF THE CPU FINCTION TEST. WHEN AN ERROR 
PERSISTS USE THE CPU FUNCTION TEST PIO 03A1 TO CORRECT THE PROBLEM. 

TABLE 2 SHOWS THE FUNCTIONS OF DATA ENTRY SWITCHES AND 1 IN PROVID- 
ING ERROR ROUTINE CONTROL. SET THE SWITCHES AS DESIRED WHEN AN ERROR 
HAIT IS ENCOUNTERED. 

TABLE 2 
HEADER TEST ERROR PROCEDURE OPTIONS 

»«»»»••«»•»•»••••••••••♦••••••••••••»••••»•••••••••••••»•••••••••••••••••♦•••• 

CONSOLE ENTRY SWITCH • 
0123456789* • DESCRIPTION 

I 1 ..LOOP INSTRUCTION 

1 ....BYPASS ERROR WAIT 



0. 



1 0. 



1. 



RETRY FAILING INSTRUCTION AND HALT IF ERROR OCCURS. 

PROGRAM WILL PROCEED IF FAILURE DOES NOT REOCCUR. . 

RETRY FAILING INSTRUCTION AND BYPASS HALT IF ERROR 

OCCURS. PROGRAM WILL PROCEED IF FAILURE DOES NOT REOCCUR 

..............CONTINUOUS LOOP ON INSTRUCTION. HALT AT ERROR WAIT IF 

FAILURE OCCURS. USE THIS SETTING TO DETECT INTERMITTANT 
ERROftS, AND FOR STEPPING THROUGH A FAILING ROUTINE IN 
SINGLE INSTRUCTION KOCE. 

I I CONTINUOUS LOOP ON INSTRUCTION. BYPASS WAIT ON ERROR. 

USE SETTING TO SCOPE A FAILING INSTRUCTION. 



A DESCRIPTION OF ALL TfC WAITS FOLLOWS- 
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HEADER TEST 1 WAITS. 



c 


DATE 


15PEB6B 


26AUCba 




EC NO. 


420403 


420403A 


c 









B-REC 

3004 
3005 
3006 
3007 
3008 
3009 
300A 
300B 
300C 
3000 
300E 
300F 
3010 
3011 
3012 
3013 
3014 
3015 

3016 
3017 
3018 
3019 
301A 

30ia 

301C 

3010 
30 IE 
301F 
3020 
3021 
3022 
3023 
3C24 
3025 
3026 
3027 
3028 
3029 
302A 
302 B 
30 2C 
3020 
302E 
302F 
3030 
3031 
3032 
3033 
3034 
303S 
3036 
3037 
3038 
3039 
30 3 A 
303B 
303C 
303D 



ERROR UAIT COMMENTS 



MOX BY 

MOX BY 
MDX BY 
MDX BY 
MOX BY 
MDX BY 
MDX BY 



MOX BY 
MDX BY 
MDX BY 



1 FAILED 

2 FAILED 
2 FAILED 
4 FAILED 
4 FAILED 
4 FAILED 
4 FAILED 

MOX BY -2 FAILED 
MDX BY -2 FAILED 
MDX BY -2 FAILED 
MDX BY -2 FAILED 
MDX BY 8 FAILED 

8 FAILED 

8 FAILED 

8 FAILED 
BSC-CARRY FAILltO 
BSC-OVERFLOH FAILED 
BSC-OVERFLOH SKIPPEDt SHOULD NOT 

HAVE 
BSC-CARRY SKIPPED. SHOULD NOT HAVE 
LO ACC TO FAILED 
LD ACC TO FAILED 
BSC ON EVEN FAILED 
LOAD ACC. FAILED OR BSC ON NEC. 
FAILED 

BSC ON PLUS SKIPPED. SHOULD 
NOT HAVE 

BSC ON EVEN SKIPPED. SHOULD 
NOT HAVE 

• 7FFF 

• 3FFF 

• IFFF 
f OFFF 
« 07FF 

• 03FF 

• OlFF 
f OOFF 

• 007F 
f 003F 

• OOIF 

• OOOF 

• 0007 

• 0003 

• 0001 

• 0000 

• 0000 

• FFFF 
t FFFF 
t 7FFF 
8 3FFF 
< IFFF 

• OFFF 

• e7FF 

• 03FF 
8 OlFF 
« OOFF 
8 007F 

• 003F 
8 OOIF 

• OOOF 
8 0007 
8 0003 
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ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
ACC NOT 
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303E 
303F 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
304A 
304B 
304C 
3040 
304E 
304F 
3050 
3051 
3052 
3053 
3054 
3055 
3056 

3057 
3058 
3059 
305A 
305B 

30 5C 

305E 

305F 
3060 
3061 
3062 
3063 



ACC NOT 8 0001 
ACC NOT • 0000 
ACC NOT 8 0000 
ACC NOT 8 ZERO 
ACC NOT 8 FFFF 
ACC NOT 8 ZERO 
EOR OF AND 



FAILED 
FAILED 
FAILED 
FAILED 
FAILED 
FAILED 



EOR OF 1 AND 1 

EOR OF 1 AND 

EOR OF 1 AND 

EOR OF AND 1 

EOR OF AND 1 

WRONG LOCATION LOADED 

MRCNG LOCATION LOADED 

WRONG LOCATION LOADED 

WRONG LOCATION LOADED 

SSC FELL THROUGH 

BSC SKIPPED. SHOULD OF BRANCHED 

esc £ FELL THROUGH 

BSC SKIPPED. SHOULD OF BRANCHED 

BSC t FELL THROUGH 

BSC SKIPPED. SHOULD OF BRANCHED 

BSC Z FELL THROUGH 

BSC SKIPPED. SHOULD OF BRANCHED 

BSC SKIPPED. SHOULD NOT 

OF BRANCHED 

C FELL THROUGH 

BSC SKIPPED. SHOULD OF BRANCHED 

BSC FELL THROUGH 

BSC SKIPPED. SHOULD OF BRANCHED 

BSC BRANCHED. SHOULD NOT 

OF BRAKCHED 

BSC ERiKCHED. SHOULD NOT 

OF BRANCHED 

BSC EKAKCH ZERO FAILED. NOT 

PLUS OR NEG. 

BSC SKIPPED. SHOULD OF BRANCHED 

BSC BRANCHED NEC.. SHOULD NOT HAVE 

BSC BRANCHED PLUS. SHOULLD NOT HAVE 

INDIRECT ESC FAILED 

INDIRECT BSC FAILED 



o 

« 

9 

9 

O 
O 

o 



HEADER TEST 2 WAITS. 



•-KE6 ERROR WAITS COfWENTS 

3064 BSI SKIPPED. SHOULD PF BRANCHED 

3065 BSI FAILED TO STORE PROPER I RES 

3066 BSI PLUS FELL THROUGH 

3067 BSI SKIPPED. SHOULD OF BRANCHED 
3066 BSI FAILED TO STORE PROPER I REG 

3069 STORE FAILED 
306E SRA 16 FAILED 
306F SRA 15 FAILED 

3070 SRA 1 FAILED 

3071 SRA 1 FAILED 

3072 MULTIPLE SRA«S FAILED 

3073 AND OF AND FAILED 

3074 AND OF AND 1 FAILED 

3075 AND OF 1 AND FAILED 

3076 AND OF 1 AND 1 FAILED 

3077 OR OF AND FAILED 

3078 OR OF AND 1 FAILED 

3079 OR OF 1 AND 1 FAILED 

307A ACC DESTROYED AFTER NDX ADO MEN. 

307B ADO TO MEM FAILED 
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DATE 
EC NO. 



15FEB6B 
4204C3 



26AU668 
42040 3A 



307C RTE ZEROS FROM A TO FAILED 

307D RTE ONES FROM A TO FAILED 

307E SRT 32-A REG FAILED 

307F SRT 32-0 REG FAILED 

3080 SRT 32-A REG FAILED 

3081 SRT 32-0 REG FAILED 

3082 SRT IS-A REG FAILED 

3083 SRT lS-0 REG FAILED 

3084 MULTIPLE SRT'S FAILED 

3085 MULTIPLE SRT'S FAILED 

»-»-♦-»-»-»-«-«-» » » . » - > - » ■ » -» 
• HEADER TEST 3 KAITS. • 



B-RE6 ERROR UAITS COMMENTS 

3086 RTE IS-Q TO A FAILED 

3087 RTE 15-A TO FAILED 

3088 MULTIPLE RTE'S FAILED 

3089 MULTIPLE RTE'S FAILED 
308A SLA 16-CARRV FAILED 
308B SLA 16-AFFECTED RED 
308C SLA 16-CARRy FAILED 
3080 SLA 16-AFFECTEO Q RE6 
308E SLA 1-CARRV FAILED 
308F SRA 1-AFFECTED 6 REG 

3090 SLA 1-CARRY FAILED 

3091 SLA 1-AFFECTEO Q REG 

3092 MULTIPLE SRA'S C CARRY FAILED 

3093 MULTIPLE SRA'S AFFECTED Q REG 

3094 SLT 32-CARRV FAILED 

3095 SLT 32-0 REG FAILED 

3096 SLT 16-CARRV FAILED 

3097 SLT 16-0 REG FAILED 

3098 SLT 15-CARRY FAILED 

3099 SLT 15-0 REG FAILED 

309A MULTIPLE SLT'S t CARRY FAILED 

309B MULTIPLE SLT'S AFFECTED Q REG 

309C STORE ZEROS FAILED 

3090 STORE ONES FAILED 

309E STS FAILED TO STORE 

309F LOST ACC DATA AFTER LDS-STS 

30A0 STS NOT CLEAR CARRY 

30A1 STS NOT CLEAR OVERFLH 

30A2 STS FAILED TO STORE 

30A3 STS FAILED TO STORE 

30A4 STS NOT CLEAR CARRY 

30A5 STS FAILED TO STORE 

30A6 STS NOT CLEAR OVERFLOM 



C 

o 
c 

« 



PROG ID 
PAGE 



0302-« 
18 



o 

c 
o 
o 

e 
& 
o 



o 
o 
o 

9 

o 
o 

o 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1130 DIMAL-CARD AND PAPER TAPE 



PART NO. 2243961 
PAGE ISA 



• HEADER TEST 4 WAITS. 






DATE 
EC NO. 



15FEB68 
420403 



26AUGM 
42r403A 



fi-REG 

30A7 
30A8 
30A9 
30AA 
30AB 
30AC 
30A0 
30At 
30AF 
30B0 
3CB1 
3082 

30B3 
30B4 
30B5 
30B6 
30B7 
3088 
3089 
30BA 

3088 

30BC 

30BD 

30BE 

30BF 

30C0 
30C1 
30C2 
30C3 
30C4 
30CS 
30C6 
30C7 
3CC8 



ERROR HA ITS COMMENTS 

BSC SKIPPEOt SHOULD NOT HAVE 
BSC SKlPPEDf SHOULD NOT HAVE 
BSC FAILED TO SKIP 
BSC NOT CLEAR OVERFLU 
BSC FAILED TO SKIP 
BSC FELL THRU 

BSC SKIPPEOt SHOULD OF BRANCHED 
ACC DESTROYED AFTER LOAD-TEST-EOR 
BSC FELL THRO 

BSC SKIPPEOt SHOULD OF BRANCHED 
BSC SKIPPEOt SHOULD NOT OF BRANCHED 
BSC BRANCHEOt SHOULD NOT 
OF BRANCHED 

BSC PLUS CLEARED OVERFLOM 
BSC FAILED TC SKIP 
FELL THRU 

SKIPPEDt SHOULD OF BRANCHED 
BSI DID NOT CLEAR OFL 
BSI FELL THROUGH 

BSI SKIPPEOt SHOULD OF BRANCHED 
BSI BRANCHEOt SHOULD NOT 
OF BRANCHED 

BSI BRANCHEOt SHOULD NOT 
UF BRANCHED 

BSI BRANCHEOt SHOULD NOT 
OF BRANCHED 

BSI BRANCHEDt SHOULD NOT 
OF fiXANCHED 

BSI BRANCHEOt SHOULD NOT 
OF BRANCHED 

BSI BRANCHEOt SHOULD NOT 
OF BRANCHED 
TAG REG BIT 7 
TAG REG BIT 6 

TAG BIT 6 OR 7 FAILED INDEX 3 
:x 1 NOT LOADED 

NOT LOADED 

NOT LOADED 

NOT LOADED 

NOT LOADED 

NOT LOADED 



BSI 
BSI 



FAILED INDEX 
FAILED INDEX 







o 
c 

o 



o 
o 
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* 



HEADER TEST S MAITS. 



•—«—•—«-*' 



B-ftEG 



c 

c 
e 



DATE 
EC NO. 



15FE66S 
420403 



2frAUftfr8 
420403* 



ERROR NAITS COMMENTS 



30C9 


L0N6 FORM LDX-FAILEO 


30CA 


LONG LDX FAILED 


30CB 


LONG LOX FAILED 


30CC 


INDIRECT LDX FAILED 


30CD 


INDIRECT LDX FAILED 


30CE 


INDIRECT LDX FAILED 


30CF 


ACC GONE AFTER STX 


30D0 


IX 1 NOT STORED 


30D1 


IX 2 NOT STORED 


30D2 


IX 3 NOT STORED 


30D3 


IX I NOT STORED 


30D4 


IX 2 NOT STORED 


30D5 


IX 3 NOT STORED 


3006 


IX 1 FAILED TO SKIP 


30D7 


1X2 CHANGED 


3008 


1X3 CHANGED 


3009 


1X2 FAILED TO SKIP 


30DB 


1X3 CHANGED 


30DC 


1X3 FAILED TO SKIP 


30DD 


IXl CHANGED 


30DE 


1X2 CHANGED 


30DF 


HR0N6 DECODE OF ACC 


30E0 


NRONG DECODE OF ACC 


30EI 


WRONG DECODE OF ACC 


30E2 


OVERFLOW IS ON 


30E3 


CARRY NOT ON OR ADO 




0001 ♦ FFFF FAILED 


30E4 


CARRY NOT ON OR ADD 




FFFF ♦ FFFF FAILED 


30ES 


OVERFLOW NOT ON OR ADO 




4000 * 4000 FAILED 




ADO 4000 * 4000 FAILED 


30E6 


ADO 8000 * 8000 FAILED 


30E7 


OVERFLOW NOT ON 


30Ea 


CARRY NOT ON 



o 
c 
o 
o 
c 
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DATE 
EC NC. 



15FES68 
420403 



26AUG68 
42040 3A 






»-»-»-»-»-»- 




• HEADER 


TEST 6 WAITS. • 


m-m-*~m-m-»- 




B-REG 


ERROR WAITS COMMENTS 


30 E9 


WRONG LOCATION 


30EA 


IX 1 LOADED WRONG 


30EB 


WRONG LOCATION 


30EC 


IX 2 LOADED WRONG 


30 ED 


WRONG LOCATION 


30EE 


IX 3 LOADED WRONG 


30EF 


WRONG LOCATION 


30F0 


IX 3 LOADED WRONG 


30F1 


WRONG LOCATION 


30F2 


IX 3-LOAOED WRONG 


30F3 


SHORT INDEX FAILED 


30F4 


SHORT INDEX FAILED 


30F5 


SHORT INDEX FAILED 


30F6 


INDEXED SLA FAILED 


30F7 


INDEXED SRA FAILED 


30F8 


INDEXED BSC FAILED 


30 F9 


6SC INDIRECT FAILED 


30FA 


0001 MINUS 0000 FAIL 


30FB 


CARRY NOT ON 


30FC 


FFFF MINUS 0000 FAIL 


30 FO 


CARRY NOT SET 


30FE 


0001 P.INUS 8000 FAIL 


30FF 


OVERFLOW NOT SET 


3100 


8000 MINUS 0000 FAIL 


3101 


CARRY NOT ON 


3102 


CVERFLDK NOT ON 


3103 


IXl FAILED TO SKIP 


3104 


HDX IXl FAILED 


3105 


HOX LONG IX 2 FAILED 


3106 


IX 3 NO SKIP AT • 


3107 


SIGN CHANGE-NO SKIP 


3108 


ACC GOf.E AFTER MOX I 


3109 


INDIRECT MOX FAILED 


310A 


MOX L FAILED TO SKIP 


3108 


MOX L SKIPPED-ERROR 
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•-•-*-*-•• 



HEADER TEST T HAITS. 



ERROR VAITS COHMEMTS 

SLC* 14 FAILED 

SLCA 1 FAILED 

SLCA 1 FAILED 

SLCA IS FAILED 

SLCA 14 FAILED 

SLC 1 FAILED 

SLC 16 FAILED 

SLC 32 FAILED 

SLC 31 FAILED 

LOD-A REG INCORRECT 

LDT-O REG INCORRECT 

LOD-A REG INCORRECT 

LOO-g REG INCORRECT 

LOO OOD-A REG r AILED 

LDC-OOO-0 REG FAILED 

STO ACC INCORRECT 

STO Q REG INCORRECT 

STO ACC INCORRECT 

STD Q REG INCORRECT 

STO ODD ACC INCORRECT 

STD ODD HEG STORED INTO 

URONG WORD 



B-RE6 

3 IOC 
310D 
310E 
31 OF 
3110 
3111 
3112 
3113 
311* 
3115 
3116 
3117 
3118 
3119 
311A 
31 IB 
311C 
3110 
311E 
31 IF 
3120 



COLO START LOADER HAITS. • 



COLD START LOADER PROGRAM NAITS DESCRIPTION. 



3200 



3201 



3202 



MA IT 200 

THE CE MORO NHICH DEFINES 
THE DISK PACK AS THE CE 
PACK WAS NOT FOUND. INSURE 
THE CE/DIHAL PACK IS 
LOADED ON THE CORRECT 
DISK DRIVE. PRESS START 
TO PROCEED. 

NAIT 201 

THE DIHAL WORD MHICH 
DEFINES THE CE DISK PACK 
AS CONTAINING DIHAL MAS 
NOT FOUND. INSURE THE 
PROPER DISK PACK IS LOADED 
ON THE CORRECT DRIVE. 
DEPRESS START BUTTON TO 
PROCEED. 

NAIT 202 

THE HONE BIT DID NOT 



c 











DATE 


15FEB68 


26AU668 




EC NO. 


420403 


42040 3A 


e 
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e 



3203 



3204 



3205 



3206 



COME ON AFTER 3 ATTEMPTS 

TO SEEK HOWE. THE DSI« IS 

IN THE A REG. CORRECT THE 

FAILURE AND IF CORE HAS 

NOT 0E5TURBED PRESS RESET 

AND START. IF CORE HAS 

DISTURBEDt RELOAD THE CALL CARD. 

MA IT 203 

DISK DRIVE NOT READY. 
MAKE DISK DRIVE READY. IF 
THE DISK ARM MAS MOVED; 
MANUALLY OR BY POWER OFFt 
PRESS RESET AND START* 
OTHERWISE JUST PRESS 
START. 

MAIT 204 

SAME AS HAIT 203 

MAIT 205 

A DISK ERROR HAS DETECTED 
ON EACH OF 3 ATTEMPTS TO 
READ A SECTOR. THE ERROR 
BITS ARE IN THE A REG. 
PRESS START TO RETRY THE 
READ. DEPRESS RESET AND 
START FOR RESTART OPERA- 
TION. 

HAIT 206 

THE HR0N6 SECTOR ID HAS 

READ ON EACH GF 3 TRIES. 

THE Q REG CONTAINS THE 

EXPECTED SECTOR, AND THE 

A REG THE ACTUAL SECTOR. 

PRESS RESET THEN START TO RCTRY. 



9 

O 
C 




LAST PAGE 
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EC NO. 
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26AUG68 
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TABLE OF CONTENTS 



PARAMAPH 
1. PURPOSE. 



2. PREREQUISITES. 



3. OPERATING PROCEDURE. ......... 

3.1 PROGRAM LOADING 

3.2 PROGRAM OPERATION 

3.2.1 PROGRAM CONTROL - FUNCTION 

3.2.2 ROUTINE SELECTION - FUNCTION 1 

3.2.3 PROGRAM OPTION 

3.3 PROGRAM HALTS 

3.3.1 NORMAL HALTS 

3.3.2 ERROR HALTS 

3.4 PROGRAM TERMINATION 

3.5 RESTARTS 



PACE 
1 
1 



4. PRINTOUTS. 



4.1 
4.2 



STATUS MESSAGES 
ERROR MESSAGES 



COMMENTS 



S.l 
5.2 



THE PRINTER TEST 
THE KEYBOARD TEST 



*. APPENDIX 



4A 



5A 



SAMPLE PRINTOUT 



PURPOSE 



THE KEYBOARD PRINTER FUNCTION TEST CHECKS THE OPERATING PERFORMANCE OF 

THE PRINTER AND KEYBOARD AND AIDS IN THEIR PROPER ADJUSTMENT WHILE BEIN6 

RUN IN OVERLAP HITH OTHER SYSTEM FUNCTIONS. 

2. PREREQUISITES 

THIS PROGRAM MUST RUN UNDER CONTROL OF THE DIAGNOSTIC MONITOR. 
THE DIAGNOSTIC MONITOR PROGRAM USES 1,500 STORAGE WORDS. AND THIS 
PROGRAM USES 1.200 STORAGE WORDS. 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



15N0V66 
419643 



1SJUN67 
420317 
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3. OPERATING PROCEDURE 

3.1«** PROGRAM LOADING 

STANDARD MONITOR LOADING PROCEDURES APPLY 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 
DETAILS. 

1. SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN. 

2. SET BIT SWITCH 15 OFF - LOAD AND GO 

ON - TO SPECIFY OPTIONS BEFORE RUNNING. 

IF HALTED AFTER LOADINGS SELECT PROGRAM OPTIONS THEN TURN OFF HALT 
SWITCH OR FOLLOW NORMAL RESTART PROCEDURE (SECTION 3.51. 

3. LOAD DIAGNOSTIC MONITOR AND KEYBOARD PRINTER TEST. 

4. SELECT PROGRAM OPTIONS. IF DESIRED. 

i.2»** PROGRAM OPERATION. 

STANDARD MONITOR OPERATING PROCEDURES APPLI". 

THESE PROCEDURES ARE SUHMARUEO HERE. SEE DM USE PROCEDURE FOR 

DETAILS. 



2191242 
OOOIA 



3.2.1 PROGRAM CONTROL - FUNCTION 



SET SNITCHES 0-7 TO 01. 

SET SWITCHES 8-15 AS DESIRED. 



SH 



FUNCTION 



B 
9 
10 
11 
12 
13 
14 
IS 



RESTART 

ROUTINE START MESSAGE 

LOCK ON FUNCTION 

LOOP PROGRAM 

LOOP ON ERROR 

BYPASS ERROR PRINTOUT 

HALT ON ERROR 

HALT 



3. PRESS INT REO KEY ON CONSOLE. 

*• 

3.2.2 ROUTIME SELECTION - FUNCTION 1 

THE SELECTED ROUTINE WILL LOOF UNTIL A NEW ROUTINE IS SELECTED. 
1. TO SET ROUTINE SELECTION 



SET SWITCHES 0-7 TO 41. 

SET ROUTINE NUMBER IN SWITCHES 12-15 



RTN 



DESCRIPTION 



1 PRINT LAST KEYBOARD ENTRY 

2 TAB AND CARRIER RETURN 

3 UPPER CASE CHARACTERS 

4 LOWER CASE CHARACTERS 

5 REGISTRATION 

« BACKSPACE AND INDEX 

7 END OF LINE CARRIER RETURN 

8 ROCK 

9 TWIST 
A ROLL 



NORMAL R0U1INES- 
THE PROGRAM STARTS WITH 
ROUTINE 1. RUNS EACH 
ROUTINE IN SEQUENCE 
THEN TERMINATES AFTER 
ROUTINE A. 



DATE 02JAN66 
EC NO. 415499 



01HAV66 
41S490B 



1SN0V66 
419643 



I5JUN67 
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PRINT BIT SHITCH IMAGE 



OPTIONAL ROUTINES 
MUST BE SELECTED 



• > REFER TO SECTION 3.2.3 FOR SPECIAL INSTRUCTIONS. 
C. PRESS INT REO KEY ON CONSOLE. 

2. TO RESET ROUTINE SELECTION SET AS IF SELECTING ROUTINE ZERO. 

••' 

3.2.3 PRINT FROM BIT SWITCHES 

ROUTINE B MILL ALTERNATELY PRINT TWO CHARACTERS SET IN THE BIT 
SWITCHES. TO SPECIFY THE DESIRED CHARACTERSt SET SNITCH 0-7 ANO 
8-15 TO THE ROTATE ANO TILT CODE FOR THE CHARACTERS. 

3.3*»» PROGRAM HALTS 
3.3.1 NORMAL HALTS 



.HALT NO. 
.IB RE6I. 

', 3001 I 

. 3002 . 



DESCRIPTION 



PROGRAM STOP OR ADDRESS STOP 
HALT ON ERROR 



RESTART 
ACTION 

PRESS START 

DISPLAY MODE-PRESS START. 
RUN MODE-PRESS START 



•« 



DATE 02JAN66 
EC NO. 41S490 



01MAV66 
415490B 



1SN0V66 
* 196*3 



1SJUN67 
420317 
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3.3.2 ERROR HALTS 



PAAT tto. 2191242 
PAGE 0002A 



.HALT NO. 
.IB REGI 


DESCRIPTION 


RESTART 
ACTION 


. 30F1 , 


CHECK SUM ERROR ON FIRST 
CARD OF LOADER 


RELOAD I 


. 30F2 . 


READER DSH ERROR WHEN 
LOADING LOADER 


RELOAD 


. 30F3 . 


CARD 2 OF LOADER DID NOT 
LOAD 


RELOAD 


. 30F4 . 


CAN NOT CLEAR CORE - DUE TO 
ERROR IN ADDRESSING UPPER 
CORE. 




. 30F5 . 


READER CHECK WHEN LOADING 
MONITOR OR TEST PROGRAM 


NPRO THEN PLACE CARDS 
RUN OUT IN FRONT OF 
REMAINING DECK AND PRESS. 
START. 


. 30F4 . 


MONITOR DID NOT LOAD 


RELOAD 


. 30F7 . 


CHECK SUM KHEN LOADING 1 . 
MONITOR ' 


RELOAD 


. 30FS . 


READER NOT READY 


HAKE READER READY 


. 30F9 . 


INVALID INTERRUPT WHICH WILL . 
NOT RESET 


PRESS RESET AND START 


. 30F* . 


CONSOLE PRINTER HANG UP - 
BUSY WILL NOT GO OFF 


FIX THE CONSOLE PRINTER . 
OR NOP THIS WAIT . 



3.4**« PROGRAM TERMINATION 

IF LOOP PROGRAN HAS NOT BEEN SPECIFIED THE PROGRAN HILL TERMINATE 
AT THE END OF ROUTINE 7. ROUTINE 7tA. ANO E WILL ONLY RUN 
SELECTED. 

IF ANY ROUTINE IS SELECTED THAT ROUTINE WILL LOOP ANO MILL NOT 
TERMINATE. 

••••♦• 

3.5«*» RESTART ; 

1. SET SWITCHES 0-7 TO 01. 

2. TURN ON SWITCH 8. 

3. SET DESIRED CONTROL IN SWITCHES 9-14. 

4. PRESS INTERRUPT REOUEST KEY. 



DATE 02JAN66 
EC NO. 415490 



01HAY66 
415490B 
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15JUN6T 
420317 



PROG 10 
PAGE 



0304-* 
0002* 



> 
) 
> 
> 
> 
) 
) 
) 

V 
) 

1 

> 

J 
J 
1 
t 
t 



; 



IBH MAINTENANCE OUCNOSTIC PROGRAN FOR THE U30 SYSTEM 
1131 KEVBOARO-PR INTER TEST 



PRINTOUTS 

ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 



PART NO. 2191242 
PACE 0003 



APPNN OORR AAAA 

OR 

EPPNN OORR AAAA 

WHERE 



IHESSA6EI 

IHESSA6E) 

A IDENTIFIES STATUS MESSAGES 
E IDENTIFIES ERROR MESSAGES 
PP IS THE PID OF THE PROGRAM CAUSING THE MESSAGE 

THIS UILL BE EITHER 00 FOR MESSAGES 
ORIGINATED BY THE MONITOR OR 
0* FOR MESSAGES ORIGINATED BY 
THIS PROGRAM. 

NN IS THE MESSAGE SEQUENCE NUMBER 

RR IS THE ROUTINE NUMBER 

AAAA IS THE ADDRESS OF THE ROUTINE 

MESSAGE IS ANY VARIABLE INFORMATION 



X.l»»» STATUS MESSAGES 



AOOOO 



NUM PIO AORS RELF 

xxxx xxxx xxxx xxxx 



LD 



THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM (EXCEPT 
MONITOR). THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, THE PROGRAM 
ID, THE ADDRESS INTO WHICH THE PROGRAM HAS LOADED, AND THE RELOCATION 
FACTOR. 
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• TYPEWRITER-KEYBOARD OSW 
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BIT 



































































AOOOl 



SMS PID 
xxxx XXXX 

THIS MESSAGE IS PRINTED EACH TIME A VALID SWITCH ENTRY IS READ BY THE 
MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ TOGETHER WITH 
THE PROGRAM ID OF THE PROGRAM INTO WHICH THE CONTENTS OF SWITCHES B-15 
WERE STORED. IF THE SWITCH ENTRY CALLED FOR HALT OF ANY PROGRAM. THE 
WORD HALT WILL FOLLOW THE MESSAGE. 



A0400 OOOR AAAA 



ROUTINE START MESSAGE - IF SWITCH 9, FUNCTION 0, IS TURNED ON. THIS 
MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. R IS THE 
NUMBER OF THE NEXT ROUTINE AND AAAA IS THE STARTING ADDRESS. 



A040I OOOR AAAA 

OR 
A0401 OOOR AAAA 



CONSOLE 
KEYBOARD 



THIS MESSAGE INDICATES THE POSITION OF THE CONSOLE/KEYBOARD SNITCH 
EACH TIME IT IS CHANGED. 

4.2*** ERROR MESSAGES 

THE DSM IS CHECKED FOR ABSOLUTE CORRECTNESS AT ALL TIMES. IF AN 
ERROR IS DETECTED ONE OF THE MESSAGES BELOW WILL INDICATE THE 
PROBLEM. IT IS LEFT TO THE OPERATOR TO ANALYZE THE OSW FOR THE 
SPECIFIC PROBLEM AREA. 



DATE 
EC NO. 



02JAN66 
41S490 



01MAY66 
41S490B 



15N0V66 
41960 



1SJUN67 
420317 
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PAGE 
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-> 
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EOOOl 



E0003 



E0004 



TYPEWRITER SERVICE RESPONSE 

KEYBOARD RESPONSE 

KEYBOARD REQUEST 

ON - CONSOLE ENTRY OFF - KEYBOARD 

TYPEWRITER BUSY 

TYPEWRITER NOT READY 

KEYBOARD BUSY 

NOT USED 

NOT USED 

NOT USED 

NOT USED 

NOT USED 

NOT USED 

NOT USED 

NOT USED 

NOT USED 



••••*•••••*•**••*••»»«•••»»•••»«•♦•»••»»•»««»»«»»»»» 



SWS INVLO 
XXXX 

THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 



OVR CORE 

THE PROGRAM WHICH THE LOADER WAS ATTEMPTING TO LOAD 
EXCEEDED AVAILABLE CORE. LOADING HAS TERMINATED. 



CKSUN 

A CHECK SUM ERROR WAS DETECTED MHILE LOADING A TEST PROGRAM. 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. 



1. 
2. 
3. 

4. 
5. 



A CARD IS HISSING OR IS OUT OF SEQUENCE. 

THERE IS AN EXTRA CARD IN THE DECK. 

THE PUNCHED INFORMATION ON THE CARD IS NOT CORRECT. 

DATA HAS LOST OR PICKED UP DUE TO A MACHINE MALFUNCTION. 

DUE TO A CPU MALFUNCTION, THE CHECK SUM HAS NOT 

CORRECTLY CALCULATED. 



EOOOS 



WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAM. 



DOOM XXXX 

THIS ERROR WILL OCCUR IS AN INTERRUPT OCCURS, BUT THE ILSW 
WAS NOT CORRECT. N IS THE INTERRUPT LEVEL AND XXXX IS THE 
ILSM. THIS PRINTOUT WILL ONLY OCCUR IF THE INTERRUPT IS RESET 
BY A BOSI. NO ATTEMPT IS MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. 



E0401 OOOR AAAA XXXX XOOO 

OSW ERROR ON CHECKING FOR READY 



DATE 02JAN66 
EC NO. 413490 



01MAY66 
415490B 
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420317 
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E0402 OOOR AAAA XXXX XCOO 

OSM ERROR IMMEOIATELT AFTER OUTPUT COHNANO. 
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E0403 OOOR A AAA XXXX XXOO 

INTERRUPT OSH ERROR 



EO404 OOOR AAAA 



XXXX XOOO 



LOST PRINTER INTERRUPT. 

OSH AFTER LAST XIO WRITE COMMAND IS PRINTED 



E0405 OOOR AAAA 



XXXX 



KEYCODE ENTRY ERROR. AM ILLEGAL KEYBOARD CODE HAS BEEN DETECTED. 

THE KEYBOARD CODE SHOULD HAVE BEEN AN IMAGE OF CARD HOLERITH. COLS 

12 - 9 IN BITS 0-11, RESPECTIVELY. 



E0406 OOOR AAAA XXXX X200 

OSH ERROR ON PLACING KEYBOARD IN PROCEED STATUS 

C0407 OOOR AAAA | xXXX 0000 

DSH ERROR AFTER READ KEYBOARD COMMAND 



r 

r 



r 



DATE 02JAN66 01MAY66 1SN0V66 
EC NO. 41S490 415490B 419643 



15JUN67 
420317 
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5. COMHHITS 

THIS FUNCTION TEST CHECKS THE PROPER OPERATION 
STATUS INDICATORS. THE VARIOUS ROUTINES AID IN 
ADJUSTMENT OF THE PRINTER. 

5.i»»» thIe printer test. 



PART NO. 2191242 
PAGE 0004^^ 



OF THE PRINTER-KEYBOARD 
DETERMINING THE PROPER 



THE PRINTER TEST IS A SERIES OF STANDARD TESTS PERFORMED IN ORDER OF 
COMPLEXITY. EACH TEST HAS TWO LINES OF OUTPUT « THE FIRST IN BLACK 
AND THE SECOND IN REDl. THE ONLY EXCEPTION IS THE REGISTRATION TEST 
WHICH HAS ONLY ONE LINE. 

A. THE NORMALLY RUN ROUTINES ARE DONE SEQUENTIALLY AS FOLLOWS, 

1. PRINT LAST KEYBOARD ENTRY. 

2. CARRIER RETURN AND TABULATE. 

3. UPPER CASE CHARACTERS. 

4. LOWER CASE CHARACTERS. (SHIFT SIDE OF ELEMENTI. 

5. REGISTRATION 

THIS TEST PRINTS A BLACK •♦• ENCLOSED BY A RED 'O'. IT 
CHECKS THE BACKSPACE FUNCTION AND THE ALIGNMENT OF THE PRINT. 



BACKSPACE, INDEX. 

CHECKS TABULATE. BACKSPACE, AND 

END OF LINE CARRIER RETURN 



LINE FEED FUNCTIONS. 



CHECKS TO SEE THAT THE END OF LINE CARRIER RETURN WORKS 
PROPERLY. 

ROCK 

TESTS THE TILT MECHANISM BY TYPING CHARACTERS LOCATED ONE 
AFTER ANOTHER IN VERTICAL COLUMNS ON THE PRINT HEAD. 



9. ROLL 



TESTS THE ROTATE MECHANISM BY SELECTING CHARACTERS ONE AFTER 
ANOTHER IN HORIZONTAL BANDS AROUND THE PRINT HEAD. 



THIST 

TESTS THE COMBINED ROTATE AND TILT MECHANISM BY 
MAXIMUM ROTATION AND TILT BETWEEN CHARACTERS. 



ROUTINES AVAILABLE FOR EXECUTION ON 
B. PRINT BIT SNITCH IMAGE 



CAUSIN6A : 
AN OPTIONAL BASIS FOLLOW, 



I 



THE TWO CHARACTERS IN THE BIT SWITCHES ARE ALTERNATELY 
PRINTED. 



' TO ENTER THIS MODE, ROUTINE B MUST BE SPECIFIED IFCN II. 

5.2**» THE KEYBOARD TEST IROUTINE CI 

■■ THE KEYBOARD TEST IS ENTERED BY SWITCHING THE CONSOLE/KEYBOARD 

SW.TCH TO THE KEYBOARD POSITION. 

\ AT THIS TIME THE OPERATOR MAY ENTER ANY NUMBER OF CHARACTERS. EACH 

CHARACTER ENTERED IS PRINTED AS IT IS KEYED IN. WHEN THE CONSOLE/ 
KEYBOARD SWITCH IS RETURNED TO THE CONSOLE POSITION, THE PROGRAM WILL 
LOOP ON ROUTINE ONE PRINTING THE FIRST 48 CHARACTERS ENTERED VIA THE 
KEYBOARD. IF NO ENTRY WAS MADE THEN THE PROGRAM COMPLETES THE 
PRINTER TEST. 
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ALL KEYBOAW KEYS RETAIN THEIR NORMAL USE EXCEPT. 
"E^f ^ FUNCTION 
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iOr CARRIER RETURN 

ERASE FIELD THE NEXT CHARACTER IIF ALPHABETIC! 

HILL BE IN LOWER CASE. 
0-2-B LINE FEED 
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FIGURE 1. STAMMRO TESTS PRINnWTS 



PART NO. 2t9l2<»2 
'«E 5A 



A0%00 0000 



CARRIER RETURN 
CARRIER RETURN 



CONSOLE 



TABUUTE 
TABULATE 



ABCDEFGHIJKLMNOPQRSTUVMXYZ (♦<->;.«"l- »->'24 

ABCDEFGHiaKLMHOPQRSTUVUXYZ (♦<"');*'"lO:>iiK« 

ABCDEFGHIJKLMMOPaRSTUVWXYZ 123%S67«90«/-,&$§ 

ABCDEFGHIJKLHNOPaRSTOVWXYZ 123«567t90*/-,(iSeI 



SACK SPACE 
I 
N 

E 
X 

BACK SPACE 
I 
N 
D 
■ E 
X 



CARRIER RETURN 



CARRIER RETURN 



*,$.IRZ96WOF0HUIi2SllBe4-0«YQHGPX75VlllECLT31/JA t ! :-"rRIF0W;-U»«)BICS»l?>MIO¥».XPrFlivWTi r» i i 
*, $ . I RZ96W0FD«U«SICB6*-0.YQH6PX75VHECLT31/JA 1 1 1 ."Vr i FSUruHS"!: | ?>WqM"gII!v) auSfcl 

In-I'JS!^r!HI''**'^"'!^'*"°*"'-Q'''"-''*C£GH|BDFI . ACEGHXBDFItlROMIOQPKLJ TVXY?SUWZ--"--»i '.Kf 
#9.U2087531/TVXY-SUWZ,$RO«KiQPf.LJACEGH»BDFI. AC£GHXBDFI^ROI»IC>QPKU:TVXY?lowL^":.'t| "^ 

If"!!-*{'*""'-''^*^'"^°^'''°**""'*"*'52HSQKVB'f|4?->0%8BYICQSH*G-PUX»l705FVOHWE-C"l2TBlll*/l la. 
Huvrr uvuu 000% END I 



MOTE: SEE SECTION 5 (COHHENTS) FOR RED PRINT/BIACK PRINT 0ESI6NATI0H. 
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* 

THIS ENGINEERING CHANGE REFLECTS MAJOR 
CHANGES TO THE DIAGNOSTIC MONITOR. PREVIOUS 
TESTS WILL NOT RUN WITH DIAGNOSTIC MONITOR I 



I. 

THIS TEST WILL NOT RUN WITH PREVIOUS MONITORS. 

TESTS PRIOR TO EC 419643 DATED NOV 15, 1966 
WILL NOT OPERATE PROPERLY WITH DIAGNOSTIC 
MONITOR II. 



* EQUATE TABLE 






0160 
0161 
0162 
0163 
0164 



0165 
0166 
0167 
0168 



017A 
018A 
019A 
OlAA 
OIBA 
OIBB 
OIBC 
OIBD 



0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
OOOA 
OOOC 
OOOE 
0010 



THIS TABLE EQUATES TEST PROGRAM LABELS 
TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 
ADDRESSES. 



EQU 
EQU 



/160 

BEGIN61 

START61 

ERRORCl 

L0G61 



BEGIN ROUTINE 
SUPERVISOR ROUTINE 
ERROR LOG ROUTINE 
STATUS LOG ROUTINE 
END ROUTINE 



MONITOR CONTROL WORD ADDRESSES 



* 

* 

* 

BEGIN EQU 

START EQU 

ERROR EQU 

LOG 

END 

* — 

* 

RTNSW EQU 
ERLCK EQU 
LOGBY EQU 
RLCF EQU 

# , 

* INTERRUPT TRANSFER VECTOR ADDRESSES 
* 

ILO EQU /17A INTERRUPT LEVEL ZERO 

ILl EQU IL0£16 INTERRUPT LEVEL ONE 

IL2 EQU IL1£16 INTERRUPT LEVEL TWO 

IL3 EQU IL2S16 INTERRUPT LEVEL THREE 

IL4 EQU IL3tl6 INTERRUPT LEVEL FOUR 

ROTY EQU IL4£,1 TYPR SVC REQUEST INTER 

RQKB EQU R0TY£1 KEYBOARD REQUEST INTER 

SVKB EQU RQKB&l KEYBOARD SERVICE INTER 



ENDtl 
EN0£2 
END£3 
END64 



ROUTINE START SWITCH 
LOCK ON ERROR CONTROL 
I/O BUSY SW ADR 
RELOCATION FACTOR ADR 



* 
* 
* 



PT 
PT 

PT 



TABLE OF INDEXES FOR REFERENCE 
TO PRINTER STATUS TABLES 

INDEX REG 3 ALWAYS HAS THE ADDR 

* OF THE PRINTER TABLE 

* PTRO 
« 

ADR EQU 

RTN EQU 1 

STS EQU 2 

OUT EQU 3 

ITR EQU 4 

SLT EQU 5 

NOS EQU 6 

PAD EQU 7 

WRT EQU 8 

PTR EQU 10 

SNR EQU 12 

KEY EQU 14 

SEE EQU 16 



30400020 
30400030 
30400040 
30400050 
30400060 
30400070 
30400080 
30400090 
30400100 
30400110 
30400120 
30400130 
30400140 
30400150 
30400160 
30400170 
30400180 
30400190 
30400200 
30400210 
30400220 
30400230 
30400240 
30400250 
30400260 
30400270 
30400280 
30400290 
30400300 
30400310 
30400320 
30400330 
30400340 
30400350 
30400360 
30400370 
30400380 
30400390 
30400400 
30400410 
30400420 
30400430 
30400440 
30400450 
30400460 
30400470 
30400480 
30400490 
30400500 
30400510 
30400520 
30400530 
30400540 
30400550 
30400560 
30400570 
30400580 
30400590 
30400600 
30400610 
30400620 
30400630 
30400640 
30400650 
30400660 
30400670 
30400680 
30400690 



0012 



0000 



05DC 





0304 


05DD 





0000 


05DE 


1 


0646 


05DF 





0000 


05E0 





0000 


05E1 





0000 


05E2 





0000 


05E3 


1 


0646 


05E4 


1 


0646 


05E5 





0000 


05E6 





FFFF 



05E7 0000 
05E8 1 6700 0A28 

05EA 1 D400 063D 



05EC 
05ED 

05EF 
05F0 
05F1 
05F3 
05F5 
05F6 
05F8 
05 FA 
05FB 
05FC 



18DE 

1 4C28 0603 
1802 

C302 

1 9400 07CF 
1 4C18 062A 

C302 

1 9400 0844 
1 4C28 05FD 
4808 

C040 
7021 



05FD C03E 
05FE D302 
05FF C030 
0600 1 E400 0774 
0602 7033 



ERR 
* 

* 

***** 
* 

* 
* 

PID 
RID 
RAD 
SWO 
SWl 
SW2 
SW3 



EQU 18 



ORG *£1500 

s**#**********«***********************s 
DIAGNOSTIC MONITOR 

CONTROLLED 
1130 KEYBOARD PRINTER 
FUNCTION TEST. 

«*******!JI*«#*******<;<;j';«*********S 



MLSCF 
TERM 

****** 

* 
* 

* 

* 

* 
* 
* 

* 
* 
* 
* 
* 

* 
* 
* 
COMIN 

* 

****** 



***** 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

***** 



/0304 



GO 

/OOOO 





PROGRAM ID NO 
ROUTINE NUMBER 
ROUTINE ADDRESS 



CONTROL 
RTN SELECT 



GO 
GO 

*-* 
/FFFF 



FCN 

FCN 1 

NOT USED 

NOT USED 

LOOP PROGRAM ADDRE 

INITIALIZE ADDR 

PROGRAM CONTROL FL 

TERMINATOR 



ION 



SS 
D 
********************************** 



PRINTER INTERRUPT ROUTINE 



THIS ROUTINE CHECKS THE 
INTERRUPT DSW FOR THE 
PROPER BITS. 

IF AN ERROR IS DETECTED 
THE ERROR IS SAVED IN THE 
PRINTER TABLE, PTRO, 
AND THE ERROR INDICATOR 
IS SET. 

THE ERROR WILL BE PRINTED 
WHEN THE PROGRAM RETURNS 
TO MAIN LINE. 



DC /OOOO 

LDX L3 PTRO 

XID 3 PTR SENSE - RESET DSW 

STO L DSW IT SAVE DSW 

*************************************** 



* 
C0MI3 



RTE 

BSC 

RTE 

LD 

S 

BSC 

LD 

S 

BSC 

BSC 

LD 

MOX 

LD 

STO 

LD 

AND 

MDX 



30 

KBDRQ,£Z 

18 

STS 

KFOOO 

KBDSV,6- 

STS 

KEOOO 

C0MI3,£Z 

£ 

KAOOO 

TYPSV 

KAOOO 
STS 
DSW IT 
KCNSL 
KEYER 



BR IF KBD RQST INTRPT 

PLACE DSW IN Q 

FETCH PRINTER STATUS 

BR IF S/B KBD SVC INT 
FETCH PRINTER STATUS 

BR IF S/NB lyPR SVC INT 
SKIP IF NOT KBD RTN 
SELECT KEYBOARD NEXT 
CHECK TYPR SVC INT 

SELECT KEYBOARD NEXT 

SAVE SPURRiOUS INT ERR 



THE USE OF THE KEYBOARD 
HAS BEEN REQUESTED BY 



30400700 
30400710 
30400720 
30400730 
30400740 
30400750 
30400760 
30400770 
30400780 
30400790 
30400800 
30400810 
30400820 
30400830 
30400840 
30400850 
30400860 
30400870 
30400880 
30400890 
30400900 
30400910 
30400920 
30400930 
30400940 
30400950 
30400960 
30400970 
30400980 
30400990 
3U401000 
30401010 
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30401110 
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30401130 
30401140 
30401150 
30401160 
30401170 
30401180 
30401190 
30401200 
30401210 
30401220 
30401230 
30401240 
30401250 
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30401270 
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30401330 
30401340 
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30401370 
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* 








THE 


INTERRUPT REQUEST KEY 


30401380 










* 








WHILE THE CONSOLE SW WAS 


30401390 










* 








IN 


THE KEYBOARD POSITION 


30401400 










* 












30401410 


0603 





18C1 




KBDRO 


RTE 




1 






30401420 


0604 


1 


4C10 


060A 




BSC 


L 


KBD2,- 




BR IF OSW OK 


30401430 


0606 





1801 






RTE 




17 






30401440 


0607 





C035 






LD 




DSWIT 






30401450 


0608 





E039 






AND 




KBEOO 






30401460 


0609 





702C 




* 
* 


MDX 




KEYER 






30401470 
30401480 
30401490 


060A 





C031 




KBD2 


LD 




KAOOO 




SELECT KEYBOARD NEXT 


30401500 


0608 





0302 






STO 


3 


STS 






30401510 


060C 





OBIO 




* 


XIO 


3 


SEE 




DESELECT KEYBOARD 


30401520 
30401530 


060D 





C033 






LD 




TWLVE 






30401540 


060E 





0301 




* 


STO 


3 


RTN 




SET RTN NUMBER 


30401550 
30401560 


060F 





63E7 






LDX 


3 


-25 




INITIALIZE KEYBOARD 


30401570 


0610 


1 


6F00 


07AC 




STX 


L3 


WRDCT61 


INPUT TABLE 


30401580 


0612 





6300 






LOX 


3 









30401590 


0613 


1 


6F00 


07CA 




STX 


L3 


SLTWD 






30401600 


0615 


1 


6F00 


085C 




STX 


L3 


ANY£3 






30401610 


0617 





1010 






SLA 




16 






30401620 


0618 


1 


D400 


0640 




STO 


L 


ERIND 






30401630 


061A 





6301 






LDX 


3 


1 






30401640 


061B 


1 


6F00 


085B 


* 


STX 


L3 


ANYe2 






30401650 
30401660 


0610 





701B 




* 


MDX 




COMIX 




EXIT 


30401670 
30401680 


061E 





D302 




TYPSV 


STO 


3 


STS 




RESTORE PTR STS 


30401690 


061F 





COID 






LD 




DSWIT 




CHECK TYPR RESP DSW 


30401700 


0620 


1 


E400 


0773 




AND 


L , 


KEFFF 






30401710 


0622 





FOIB 






EOR 




K8000 






30401720 


0623 


1 


4C18 


0639 




BSC 


L 


COMIX, 


e- 


BR IF OSW OK 


30401730 


0625 





C017 






LD 




DSWIT 




SAVE TYPR RESP DSW ERR 


30401740 


0626 


1 


E400 


0774 




AND 


L 


KCNSL 






30401750 


0628 





E815 






OR 




K8000 






30401760 


0629 





700C 




* 


MDX 




KEYER 






30401770 
30^01780 


062A 





C014 




KBDSV 


LD 




KCOOO 




READ KEYBOARD NEXT 


30401790 


062B 





0302 






STO 


3 


STS 






30401800 


062C 





COlO 






LD 




DSWIT 




CHECK KEYBOARD RESP 


30401810 


062D 





FOOD 






EOR 




K4200 




DSW 


30401820 


062E 


1 


E400 


0773 




AND 


L 


KEFFF 






30401830 


0630 


1 


4C18 


0639 




BSC 


L 


COMIX, 


6- 


BR IF DSW OK 


30401840 


0632 





COOA 






LD 




DSWIT 




SAVE KBD RESP DSW ERR 


30401850 


0633 


1 


E400 


0774 




AND 


L 


KCNSL 






30401860 


0635 





E805 






OR 




K4200 






30401870 


0636 





18D0 




KEYER 
* 


RTE 




16 






30401880 
30401890 


0637 





DB12 






STO 


3 


ERR 




SAVE DSW ERROR 


30401900 


0638 





6B07 




* 


STX 


3 


ERIND 




SET ERROR INDICATOR 


30401910 
30401920 


0639 


1 


4C80 


05E7 


COMIX 

* 


BSC 


I 


COMIN 




BUG - OUT OF INTRPT 


30401930 
30401940 


0636 





4200 




K4200 


DC 




/4200 




CONSTANTS 


30401950 


063C 





AOOO 




KAOOO 


DC 




/AOOO 






30401960 


0630 





0000 




DSWIT 


DC 




/OOOO 




INTRPT DSW STORAGE 


30401970 


063E 





8000 




K8000 


DC 




/8000 




PTR SVC INT DSW S/B 


30401980 


063F 





COOO 




KCOOO 


DC 




/COOO 






30401990 


0640 





0000 




ERIND 


DC 




/OOOO 




ERROR INDICATOR 


30402000 


0641 





OOOC 




THLVE 


DC 




12 






30402010 


0642 





BEOO 




KBEOO 


DC 




/BEOO 






30402020 










«******:<t*«<.#*:*j!c**#*ijt**«>!i*j|i*#:«!«:{!**!)" :{:«#***■]!**** 


30402030 










* 












30402040 










]|i«««««:ti4i««4i««4 


!*****«:;t** 


********#***«!»*«»»«*** 


30402050 



0643 4480 0160 
0645 1 050C 



0646 
0648 
064A 
064B 
064D 
064F 
0651 
0653 
0654 
0655 
0656 

0658 
065A 

065C 
065E 
0660 
0661 
0662 
0663 
0664 

0665 
0666 
0668 
0669 
066B 



TYCUS BSI I BEGIN * SC 

DC PID * 

* 

* * 

* INITIAL PROGRAM ENTRY * 

* POINT * 

* * 

***************** **«**>!<»*** S****************^: 

* 



1 6C00 
1 6000 
1010 
D400 
D400 
D400 
C400 
18C1 
4820 



0A81 
0A2A 

085C 
0640 
050D 
05E0 



GO 



1081 

1 D400 05E0 

6500 FFFF 

1 6D00 085B 



STX 


LO 


FIRST 


STX 


LO 


PTROtSTS 


SLA 




16 


STO 


L 


ANYa3 


STO 


L 


ERIND 


STO 


L 


RID 


LD 


L 


SWl 


RTE 




1 


BSC 




Z 


SLT 




1 


STO 


L 


SWl 



SET TO PRINT SW STS 
RESET LOOP RTN 1 



1 6700 0A28 
1 C400 0859 

D304 

D305 

1801 

D306 

D307 



41 

G03 



TERMINATE KBD INPUT 



INTR PTR STATUS TABL 



63E7 

1 6FO0 07AC 

6300 

1 6F00 07CA 
7000 



LDX LI -1 

STX LI ANY62 

LDX L3 PTRO 

LD L ANY 

STO 3 ITR 

STO 3 SLT 

SRA 1 

STO 3 NOS 

STO 3 PAD 



LDX 3 -25 

STX L3 WRDCTSl 
LDX 3 

STX L3 SLTWD 
MDX PRCON 

ROUTINE CONTROLLER 



INITIALIZE KEYBOARD 
INPUT TABLE 



066C C0D3 
0660 1 4C20 075F 

066F 1 C400 05DD 

0671 90CF 

0672 1 4418 0A3F 

0674 1 6700 0A28 

0676 C302 

0677 D025 



* 

* 
* 

PRCON LD 
BSC 

* 

LD 

S 

BSI 



THIS ROUTINE CONTROLS THE 
EXECUTION OF ALL PRINTER 
AND KEYBOARD ROUTINES. 

IF THIS ROUTINE TIMES OUT 
WHEN WAITING FOR AN 
INTERRUPT FROM THE PRINTER 
AN ERROR WILL BE PRINTED. 

THE SEQUENCING OF ROUTINES 
IS CONTROLLED BY THE MARK 
ROUTINE WHICH BUILDS THE 
CHARACTERS TO BE PRINTED. 



ERIND 
INERR,Z 

RID 

TWLVE 

SWSET.e- 



LDX L3 PTRO 



LD 
STO 



3 STS 
RESTO 



BR IF ERROR INDICATD 
FETCH ROUTINE NUMBER 
CHECK SWS IF KBD RTN 
FETCH PRINTER STATUS 
SAVE IT 



30402060 
30402070 
30402080 
30402090 
30402100 
30402110 
30402120 
30402130 
30402140 
30402150 
30402160 
30402170 
30402180 
30402190 
30402200 
30402210 
30402220 
30402230 
30402240 
30402250 
30402260 
30402270 
30402280 
30402290 
30402300 
30402310 
30402320 
30402330 
30402340 
30402350 
30402360 
30402370 
30402380 
30402390 
30402400 
30402410 
30402420 
30402430 
30402440 
30402450 
30402460 
30402470 
30402480 
30402490 
30402500 
30402510 
30402520 
30402530 
30402540 
30402550 
30402560 
30402570 
30402580 
30402590 
30402600 
30402610 
30402620 
30402630 
30402640 
30402650 
30402660 
30402670 
30402680 
30402690 
30402700 
30402710 
30402720 
30402730 



DATE 
EC NO. 



02JAN66 
415490 



15N0V66 
419643 



15JUN67 
420317 



PROG ID 
PAGE 



0304-2 
2 



DATE 
EC NO. 



02JAN66 
415490 



15N0V66 
419643 



15JUN67 
420317 



PROG ID 
PAGE 



0304-2 
Ik 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1131 KEYBOARD-PRINTER TEST 



PART NO. 2191240 
PAGE 3 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1131 KEYBOARD-PRINTER TEST 



PART NO. 
PAGE 



2191240 
3A 



0678 1 4C10 068D 



BSC L EXEC3,- 



BR IF PTR SVC RQSTD 











« 

* 
* 
* 






WHEN STS IS, 










* 






ZERO-POS GO SERVICE PTR 










* 






NEGATIVE, 










« 






AOOO SELECT KBD 










* 






COOO READ KBD NEXT 










♦ 






FCOO-FFFE COUNT FOR INT 










« 






FFFF LOST INT ERR 










* 






EOOO WAIT TYPWR INT 










* 






FOOO WAIT KBD INT 










* 






8000 IGNORE 


067A 





1001 






SLA 




1 


067B 




4C18 


0876 




BSC 




TYEND,6- BR IF END PROGRAM 


067D 




180C 






SRA 




12 


067E 




4C04 


0688 




BSC 




SVCE BR IF WAIT KBD INT 


06B0 




1802 






SRA 




2 


0681 




901D 






S 




KOOOl 


0682 




4C18 


0781 




BSC 




SELC2,e- 8R IF SELECT KBD 


0684 




901A 






S 




KOOOl 


0685 




4C18 


07A3 




BSC 




KEYBD,t- BR IF READ KEYBD 


0687 




700E 




* 
SVC 


MOX 




EXEC9 IGNORE OR WAIT 


0688 




7401 


0A2A 


MDX 




PTROtSTS,! COUNT DOWN FOR INT 


068A 




700B 






MDX 




EXEC9 WAIT FOR INTRPT 


068B 




4C00 


0775 


^ 


BSC 




NOIN PRINT NO INTRPT ERROI 


068D 




4400 


0A3F 


EXEC3 


BSI 




SWSET CK CON/KBD SW SETTINl 


068F 




CODE 






1.0 




KF800 SERVICE PRINTER 


0690 




D302 






STO 


3 


STS UPDATE PTR STATUS 


0691 




4C00 


0736 


* 
EXEC7 


BSC 




READY 


0693 




C009 




LD 




RESTO RESTORE TO TRY LATER 


0694 




D400 


0A2A 




STO 




PTROtSTS 


0696 




6500 


066C 


EXEC9 


LOX 


LI 


PRCON TRY AGAIN - LATER 


0698 




6D00 


05E5 




STX 


LI 


MLSCF 


069A 





4480 


0161 


* 
I 


BSI 


I 


START 


069C 





0001 




DC 




I 


0690 





0000 




RESTO 


DC 




/COOO 


069E 





F800 




KF800 


DC 




/F800 


069F 





0001 




KOOOl 


DC 




/OOOl CONSTANT 




















* 
* 






THIS ROUTINE BUILDS THE 










# 






NEXT CHARACTER TO BE 










* 






PRINTED. THE CHARACTER 










A 






IS FETCHED FROM THE 










* 






PROPER ROUTINE TABLE OR 










* 






IS TAKEN FROM THE BIT SWS 










* 






A ROUTINE WHICH IS RUNNING 










* 






WILL NOT TERMINATE UNTIL 










* 
-ft 






IT HAS BEEN COMPLETED. 


06A0 


1 


C400 


05E0 


MARK 


LD 


L 


SWl 


06A2 





lOOC 






SLA 




12 


06A3 





180C 






SRA 




12 


06A4 


1 


9400 


084D 




S 


L 


ELVEN IS TYPE SWS ROUTINE 


06A6 


1 


4C20 


06E3 


■^ 


BSC 


L 


MARKG,Z BR IF NO 


06A8 


1 


C400 


084D 




LD 


L 


ELVEN SET ROUTINE ID 



DATE 
EC NO. 



02JAN66 
415490 



15NDV66 
419643 



15JUN67 
420317 



30402740 

30402750 

30402760 

30402770 

30402780 

30402790 

30402800 

30402810 

30402820 

30402830 

30402840 

30402850 

30402860 

30402870 

30402880 

30402890 

30402900 

30402910 

30402920 

30402930 

30402940 

30402950 

30402960 

30402970 

30402980 

30402990 

30403000 

30403010 

30403020 

30403030 

30403040 

30403050 

30403060 

30403070 

30403080 

30403090 

30403100 

30403110 

30403120 

30403130 

30403140 

30403150 

30403160 

30403170 

30403180 

30403190 

30403200 

30403210 

30403220 

30403230 

30403240 . 

30403250 • 

30403260 

30403270 

30403280 

30403290 

30403300 

30403310 

30403320 

30403330 

30403340 

30403350 

30403360 

30403370 

30403380 

30403390 

30403400 

30403410 



PROG ID 
PAGE 



0304-2 

3 





06AA 


1 


D400 


05DD 




STO 


L 


RID 




30403420 






06AC 





6B09 






STX 


3 


MARKUdl 


SAVE IX 


30403430 






06AD 





C006 






LD 




MARKT 


SET MLSCF 


30403440 






06AE 


1 


D400 


05E5 




STO 


L 


MLSCF 


* 


30403450 






06B0 





6C00 


0165 




STX 


L 


RTNSW 


SET RTN SW 


30403460 






0682 





4480 


0161 




BSI 


I 


START 


GO TO START 


30403470 






06B4 


1 


06B5 




MARKT 


DC 




MARKU 




30403480 






0685 





6700 


0000 


MARKU 


LDX 


L3 





RESTORE IX 


30403490 
30403500 






06B7 


1 


OCOO 


0A3C 




XIO 


L 


RD8S 


READ BIT SWITCHES 


30403510 






06B9 


1 


C400 


0A3E 




LD 


L 


BITSW 




30403520 






06BB 





6500 


0000 


MARKl 


LDX 


LI 


/OOOO 


FETCH SHIFT COUNT 


30403530 






06BD 





1100 






SLA 


1 







30403540 






06BE 





1808 






SRA 




8 




30403550 






06BF 





FODC 






EOR 




I 




30403560 






06C0 





4820 






BSC 




Z 


SKIP IF ILLEGAL CODE 


30403570 






06C1 





FODA 






EOR 




I 




30403580 






06C2 





1008 






SLA 




8 




30403590 






06C3 





0303 






STO 


3 


OUT 




30403600 






06C4 





C0F7 






LD 




MARK161 


RESET SHIFT COUNT 


30403610 






06C5 





4830 






BSC 




-Z 




30403620 






06C6 





6100 






LOX 


1 







30403630 






06C7 





4808 






BSC 




L 




30403640 






06C8 





6108 






LDX 


1 


8 




30403650 






06C9 





69F2 






STX 


1 


MARKiei 




30403660 






06CA 





70CB 




* 


MDX 




EXEC9 




30403670 
30403680 
30403690 






06CB 


1 


4C00 


0876 


MARK2 


BSC 


L 


TYENO 


END PROGRAM 


30403700 
30403710 






06C0 





7201 




MARK3 


MDX 


2 


1 


' 


30403720 






06CE 


1 


6E0O 


0A29 


MARK4 


STX 


L2 


PTROKRTN 




30403730 






0600 


1 


D400 


050D 


♦ 


STO 


L 


RID 


SAVE THE ROUTINE NO 


30403740 
30403750 






06D2 


1 


6E80 


06E6 


* 


STX 


12 


MARKLSl 




30403760 
30403 7 70 






06D4 


1 


C680 


084D 




LD 


12 


FUNR-1 


FETCH ADRS OF TEST 


30403780 






06D6 





D304 




* 


STO 


3 


ITR 




30403790 
30403800 






06D7 





1810 






SRA 




16 


RESTORE WORDS PT 


30403810 






0608 





0307 




* 


STO 


3 


PAD 




30403820 
30403830 






06D9 


1 


C600 


084D 


MARK5 


LD 


L2 


FUNR-1 


RESTORE TEST PT 


30403840 






06DB 


1 


4C28 


06CB 


« 


BSC 


L 


MARK2,ZC 


BR IF PTR FINISHED 


30403850 
30403860 






06D0 





8307 






A 


3 


PAD 




30403870 






06DE 





D300 




* 


STO 


3 


ADR 




30403880 
30403890 






06DF 





1810 






SRA 




16 


RESTORE WORDS PRTO 


30403900 






06E0 





D306 




* 


STO 


3 


NOS 




30403910 
30403920 






06E1 





COBA 






LD 




I 


RESTORE SHIFT WORD 


30403930 






06E2 





0305 




* 


STO 


3 


SLT 




30403940 
30403950 






06E3 


1 


6580 


0A28 


MARKG 


LOX 


11 


PTROtADR 




30403960 






06E5 


1 


6680 


0A29 


MARKL 


LDX 


12 


PTROtRTN 




30403970 






06E7 





6916 






STX 


1 


MARKPSl 


SAVE IXING 


30403980 






06E8 





6A17 






STX 


2 


HARKQCl 


* 


30403990 






06E9 





6B18 






STX 


3 


MARKRSl 


* 


30404000 






06EA 


1 


C400 


0A29 




LD 


L 


PTROCRTN 


GET RTN 


30404010 






06EC 


1 


F400 


05DD 




EOR 


L 


RID 


HAS IT CHANGED 


30404020 






06EE 


1 


4C18 


06FD 




BSC 


L 


HARKP,6- 


NO 


30404030 






06F0 


1 


C400 


0A29 




LD 


L 


PTROtRTN 


SET RTN 


30404040 






06F2 


1 


0400 


05DD 




STO 


L 


RID 


* 


30404050 






06F4 





6C00 


0165 




STX 


L 


RTNSW 


SET SWITCH 


30404060 






06 F 6 


1 


C400 


06FC 




LD 


L 


MARKZ 


SET MLSCF 


30404070 






06F8 


1 


D400 


05E5 




STO 


L 


MLSCF 


* 


30404080 






06FA 





4480 


0161 




BSI 


I 


START 


GO TO START 


30404090 




DATE 


02JAN66 ] 


L5N0V66 


15JUN67 








PROG ID 


0304-2 


EC NO. 


415490 419643 


420317 








PAGE 


3A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1131 KEYBOARD-PRINTER TEST 



PART NO. 
PAGE 



21912A0 
4 



IBM MAINTENANCI: DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1131 KEYBOARD-PRINTER TEST 



PART NO. 
PAGE 



21912'fO 
4A 



06FC 1 06F0 
06FD 6500 0000 
06FF 5600 0000 
0701 6700 0000 

0703 C305 

0704 8097 

0705 D305 

0706 1 4C04 070A 

0708 ClOl 

0709 7008 

070A C306 
070B 8090 
070C D306 

070D 7101 
070E 1 6D80 06E4 

0710 ClOO 

0711 1008 

0712 0303 

0713 F05C 

0714 1 4C20 0696 

0716 C304 

0717 1 9400 069C 

0719 0304 
071A 1 4C20 06D9 

071C C306 
0710 1 8400 069C 
071F 0306 

0720 8307 

0721 D307 



0722 





ClOl 




0723 





D304 




0724 


1 


F400 


05E6 


0726 


1 


4C20 


0609 


0728 


1 


C400 


05E0 


072A 





EOOA 




072B 


1 


4C18 


06CD 


0720 





D004 




072E 





9005 




072F 


1 


4C30 


06CD 


0731 





6600 


0001 


0733 





709A 





0734 OOOA 

0735 OOOF 



MARKZ 


DC 




MARKP 


MARKP 


LDX 


LI 





MARKQ 


LDX 


L2 





MARKR 


LDX 


L3 





* 










LD 


3 


SLT 




A 




I 


^ 


STO 


3 


SLT 




BSC 


L 


MARKS, E 




LD 


1 


1 




MDX 




MARKN 


* 








MARKS 


LD 
A 


3 


NOS 
1 




STO 


3 


NOS 


* 










MDX 


1 


1 




STX 


11 


MARKGEl 




LD 


1 







SLA 




8 


* 








MARKN 


STO 


3 


OUT 


* 










EOR 




KFFOO 




BSC 


L 


EXEC9,Z 


* 










LD 


3 


ITR 




S 


L 


I 




STO 


3 


ITR 




BSC 


L 


MARKS, Z 


* 










LD 


3 


NOS 




A 


L 


I 




STO 


3 


NOS 




A 


3 


PAD 


4[ 


STO 


3 


PAD 




LD 


1 


1 




STO 


3 


ITR 




EOR 


L 


TERM 




BSC 


L 


MARKS, Z 




LD 


L 


SWl 




AND 




BASIC 


:4c 


BSC 


L 


MARK3,£- 




STO 




MARKE61 




S 




ALL 




BSC 


L 


MARK3,-Z 


MARKE 


LDX 


L2 


1 




MDX 




MARK4 



RESTORE IXING 

* 

BUMP SFF WT BY ONE 



SHIFT IF ODD 
FETCH OUTPUT WORD 



BUMP WORDS BY ONE 



FETCH OUTPUT CHAR 
SHIFT IT 

SAVE NEXT OUTPUT WD 



BR IF NOT END OF FCN 
DECREMENT ITCNT 

BR IF NO 00 AGAIN 
UPDATE MODIFIER WORD 



FETCH NEXT REPEAT CT 



BR IF NOT END OF RTN 

ASSURE PROPER ENTRY 
BR IF NO RTN SELECT 



BR IF RTN TOO LARGE 



* 
* 

* 

ALL DC FUND-FUNR ALL TYPEWRITER RTNS 
BASIC DC /OOOF 



THIS ROUTINE CHECKS IF THE 
PRINTER CAN BE USED AND 
IF THE PRINTER IS READY. 

WHEN LOGBY INDICATES THAT 
THE PRINTER IS LOGICALLY 



30404100 
30404110 
30404120 
30404130 
30404140 
304041S0 
30404160 
30404170 
30404180 
30404190 
30404200 
30404210 
30404220 
30404230 
30404240 
30404250 
30404260 
30404270 
30404280 
30404290 
30404300 
30404310 
30404320 
30404330 
30404340 
30404350 
30404360 
30404370 
30404380 
30404390 
30404400 
30404410 
30404420 
30404430 
30404440 
30404450 
30404460 
30404470 
30404480 
30404490 
30404500 
30404510 
30404520 
30404530 
30404540 
30404550 
30404560 
30404570 
30404580 
30404590 
30404600 
30404610 
30404620 
30404630 
30404640 
304046S0 
30404660 
30404670 
30404680 
30404690 
30404700 
30404710 
30404720 
30404730 
30404740 
304047S0 
30404760 
30404770 



NOT BUSY, THE DSW 
CHECKED FOR READY, 



IS 



0736 C480 0167 
0738 1 4C20 074C 

073A 1 6500 05E7 
073C 6D00 OIBB 
073E 1 6700 0A28 
0740 lOAO 



READY 



0741 





OBOA 




0742 





D02C 




0743 





E02F 




0744 


1 


4C18 


0750 


0746 





C828 




0747 





E02C 




0748 





18D0 





0749 6101 
074A 1 4400 0833 
074C 1 6500 0736 
074E 1 4C00 0840 



0750 0B08 

0751 OBOA 

0752 DOIA 



0753 EOIF 

0754 F019 

0755 1 4C18 06A0 



R0Y2 

* 
* 
* 
* 

* 
* 

* 
TYPIT 



LD 
BSC 

LDX 
STX 
LDX 
SLT 

XIO 
STO 
AND 
BSC 
LDD 
AND 
RTE 

LDX 
BSI 
LDX 
BSC 



BSYOK 



0757 
0758 
0759 
075A 
075B 
075C 
075E 



C815 

EOIB 

E814 

1800 

6102 

4400 0833 

70F6 



XIO 
XIO 
STO 



AND 
EOR 
BSC 

LDD 

AND 

OR 

RTE 

LDX 

BSI 

MDX 



I 

L 

LI 
LI 
L3 



LOGBY 
RDY2,Z 

COMIN 
ROTY 
PTRO 
32 

PTR 

DSWAS 

KEFFF 

TYPIT, e- 

DSWAS 

KCNSL 

16 



L 
LI 

L 



BR IF NO TYPE NOW 



SET INT VECTOR 



SENSE - RESET DSW 



BR IF DSW OK 



1 1 



PRDSW 
READY 
PDSWX 



ERROR 
PRINT 



- NOT READY 
THE ERROR MSG 



WRT 
PTR 
DSW BY 



PRINT ONE CHARACTER 

THIS ROUTINE PRINTS ONE 
CHARACTER ON THE CONSOLE 
PRINTER AND THEN CHECKS 
IF THE PRINTER BECAME 
BUSY-NOT READY BY THE 
OUTPUT COMMAND. 

PRINT CHARACTER 
SENSE - RESET DSW 



CHECK BUSY DSW 



KEFFF 
KOCOO 
MARK,£- 

DSWBY 

KCNSL 

KOCOO 

16 

2 

PRDSW 

BSYOK 



BR IF DSH OK 



PRINT THE ERROR MSG 



PRINT 



075F lOAO 
0760 1 D400 0640 



* 
* 
INERR 



INTERRUPT DSW ERROR 



1 CCOO 0A3A 

6103 
0765 1 4400 0833 
0767 lOAO 

DB12 

1 4C00 066C 



0762 
0764 



0768 
0769 



SLT 
STO 

LDD 
LDX 
BSI 
SLT 
STD 
BSC 



32 
ERIND 

ERRGPTRO 

3 

PRDSW 

32 

ERR 

PRCON 



RESET ERROR IND 



FETCH THE ERROR MESG 
SET MSG ID - 3 
PRINT THE ERROR MSG 

RESET ERROR IND 
RETURN TO MAIN LINE 

* 



LAST BUSY DSW 
BUSY DSW S/B 



076C 


0001 


8SS 


E 


1 


076D 


0000 


DSWBY DC 




/OOOO 


076E 


OCOO 


KOCOO DC 




/OCOO 



30404780 

30404790 

30404800 

30404810 

30404820 

30404830 

30404840 

30404850 

30404860 

30404870 

30404880 

30404890 

30404900 

30404910 

30404920 

30404930 

30404940 

30404950 

30404960 

30404970 

30404980 

30404990 

30405000 

30405010 

30405020 

30405030 

30405040 

30405050 

30405060 

30405070 

30405080 

30405090 

30405100 

30405110 

30405120 

30405130 

30405140 

304051SO 

30405160 

30405170 

30405180 

30405190 

30405200 

30405210 

30405220 

30405230 

30405240 

30405250 

30405260 

30405270 

30405280 

30405290 

30405300 

30405310. 

3040532Ci 

30405330 

30405340 

30405350 

30405360 

30405370 

30405380 

30405390 

30405400 

30405410 

30405420 

30405430 

30405440 

30405450 
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076F 





0000 


0770 





FFOO 


0771 





0000 


0772 





0200 


0773 





EFFF 


0774 





1000 



0775 
0776 
0777 
0778 
0779 
077B 
077C 
077D 
077F 



OBOA 
OOFA 
C8F9 
EOFB 

ECOO 063E 
18D0 
6104 

4400 0833 
4C00 066C 



0781 1 6600 05E7 
0783 6E00 OIBC 
0785 6E00 OIBD 

0787 OBOA 

0788 D0E6 



0789 
078A 



C045 
D302 



078B C8E3 
078C E0E6 
0780 1 4C18 0793 
078F COOF 

0790 E0E3 

0791 6101 

0792 700B 



0793 
0794 



OBOE 
OBOA 



0795 DODB 

0796 FODB 
EODB 



0797 
0798 



1 4C18 066C 



079A C8D6 
079B E008 
079C E8D5 
079D 6106 

079E 1800 
079F 1 4400 0833 
07A1 1 6400 0693 



07A3 OBIO 
07A4 OBOA 
07A5 lOAO 
07A6 1 4C18 07AB 



DSWAS DC 
KFFOO DC 
DSWBS DC 
F0200 DC 
KEFFF DC 
KCNSL DC 



/OOOO 
/FFOO 
/OOOO 
/0200 
/EFFF 
/lOOO 



LAST READY DSW 
CONSTANT 



MASK CONSOLE SW 



* 
* 

NOIN 



XIO 

STO 

LDD 

AND 

OR 

RTE 

LOX 

BSI 

BSC 



3 PTR 

DSWBS 

DSWBS 

KCNSL 

L K8000 

16 

1 4 

L PRDSW 

L PRCON 



PRINT NO INTERRUPT ERROR 
SENSE - RESET DSW 



ERROR - 4 

PRINT THE ERROR MSG 



* 



* 
* 

* 

SELC2 LOX L2 COMIN 

STX L2 ROKB 

STX L2 SVKB 



KEYBOARD TEST 



SELC 



XIO 
STO 

LD 

STO 

LDD 

AND 

BSC 

LD 

AND 

LDX 

MDX 

XIO 
XIO 
STO 
EOR 
AND 
BSC 

LDD 
AND 
OR 
LDX 



3 PTR 
DSWAS 

KFOOO 

3 STS 

DSWAS 

KEFFF 

L SELCffi- 

OSWAS 

KCNSL 

1 1 

SELCl 

3 KEY 
3 PTR 

DSWBS 

F0200 

KEFFF 
L PRCON, 6- 

DSWBS 
KCNSL 
F0200 
1 6 



SELECT KEYBOARD ROUTINE 

RESET INT XFR VECTOR 

FOR KEYBOARD REQ 
AND SVC KEYBOARD 

SENSE AND SAVE DSW 



RESET PTR STATUS 



BR IF DSW OK 



ERROR - 1 
PRINT DSW ERROR 

SELECT KEYBOARD 
SENSE - RESET DSW 



BR IF DSW OK 
PRINT DSW ERROR 

ERROR - 6 



SELCl 



* 

KEYBD 



RTE 16 

BSI L PRDSW PRINT THE ERROR MSG 

LDX L EXEC7 TRY AGAIN - LATER 

DECODE CHARACTER KEYED IN 



XIO 3 SEE 

XIO 3 PTR 

SLT 32 

BSC L WRDCT,6- 



READ AND SAVE CHAR 
SENSE - RESET DSW 



30405460 

30405470 

30405480 

30405490 

30405500 

30405510 

30405520 

30405530 

30405540 

30405550 

30405560 

30405570 

30405580 

30405590 

30405600 

30405610 

30405620 

30405630 

30405640 

30405650 

30405660 

30405670 

30405680 

30405690 

30405700 

30405710 

30405720 

30405730 

30405740 

30405750 

30405760 

30405770 

30405780 

30405790 

30405800 

30405810 

30405820 

30405830 

30405840 

30405850 

30405860 

30405870 

30405880 

30405890 

30405900 

30405910 

30405920 

30405930 

30405940 

30405950 

30405960 

30405970 

30405980 

30405990 

30406000 

30406010 

30406020 

30406030 

30406040 

30406050 

30406060 

30406070 

30406080 

30406090 

30406100 

30406H0 

30406120 

30406130 



07A8 6107 
07A9 1 4400 0833 

07AB 6600 OOOO 

07AD 61BF 

07AE 1 C500 08B9 

07B0 F30E 

07B1 1 4C18 07D0 

07B3 7101 

07B4 70F9 

07B5 C30E 
07B6 Foil 
07B7 1 4C18 07C5 

07B9 COOF 
07BA F30E 
07BB 1 4C18 07F9 

07BD 6201 
07BE 1 6E00 0847 

07C0 6105 
07C1 C30E 
07C2 1 4400 0833 
07C4 70BC 

07C5 6801 
07C6 70BA 



LDX 
BSI 



1 7 
L PRDSW 



07C7 





OOOO 


07C8 





0002 


07C9 





0004 


07CA 





OOOO 


07CB 





FFE7 


07CC 





OOOO 


07CD 





1111 


07CE 





0008 


07CF 





FOOD 



0700 1 C500 08FA 
07D2 1 7400 07C7 

0704 1808 

0705 1008 

0706 D303 

0707 6100 

0708 69EE 

0709 1 7400 07CA 
07DB 7004 

07DC 6121 
07DD 7201 
070E 7006 
07DF 7009 

07E0 6100 
07E1 1808 
07E2 7000 

07E3 1 EEOO 0874 



WRDCT LDX L2 /OOOO 



LDX 
CNVRT LD 
EOR 
BSC 
MDX 
MDX 

LD 

EOR 

BSC 

LD 

EOR 

BSC 

* 

LDX 
STX 

LDX 
LD 
BSI 
MDX 



1-6 5 
LI KEC00E65 

3 KEY 
L CMPRE.S- 

1 1 
CNVRT 

3 KEY 
NCAP 
L NOCP,£- 

ERSLC 
3 KEY 
L ERSE, 6- 

2 1 

L2 EMESG£2 

1 5 

3 KEY 

L PRDSW 
SELC2 

LOWER 
SELC2 



ERROR - 7 

PRINT DSW ERROR - 7 

LOOK UP CHAR IN TABLE 

BR IF CHAR MATCHES 



BR IF NO CAP NEXT 

BR IF ERASE LAST CHR 
SET MODIFIER WORD COUNT 



ERROR 5 

KB READ ERROR WORD 

PRINT THE ERROR MSG 



NOCP STX 
HOX 

* 



LOWER DC 
NCAP DC 
ERSLC DC 
SLTWD DC 
KFFE7 DC 
ERSEA DC 
BSPSE DC 
K0008 DC 
KFOOO DC 



/OOOO 

/0002 

/0004 

/OOOO 

-25 

/OOOO 

/nil 

/0008 
/FOOO 



# IF NEXT UPR CASE 
ERASE FIELD KEY CODE 
BACKSPACE KEY CODE 
KEYBOARD SHIFT WORD 



BACK SPACE 



* 

* PLACE CHAR KEYED IN 

* OUTPUT TABLE 



CMPRE LD 
MDX 
SRA 
SLA 
STO 

* 

LDX 
STX 



LI TYC0DE65 
L LOWER, 
8 
8 
3 OUT 

1 

1 LOWER 



MDX 1 SLTWD, 



* 
SFT 



MDX 

LDX 
MDX 
MDX 
MDX 

LDX 

SRA 
MDX 



TBLIZ OR 



SFT 

1 /21 

2 1 
TBLIS 
EXIT 

I 
8 
TBLIZ 

L2 ANY£27 



FETCH PRINTER CHAR 
SKIP IF UPPER CASE 



SAVE OUTPUT CHAR 
RESET LOWER CASE SW 



BR IF CHAR IS FIRST 
* TO BE PLACED IN WD 



SKIP IF TABLE COMPLT 



PLACE CHAR IN OUTPUT 



30406140 
30406150 
30406160 
30406170 
30406180 
30406190 
30406200 
30406210 
30406220 
30406230 
30406240 
30406250 
30406260 
30406270 
30406280 
30406290 
30406300 
30406310 
30406320 
30406330 
30406340 
30406350 
30406360 
30406370 
30406380 
30406390 
30406400 
30406410 
30406420 
30406430 
30406440 
30406450 
30406460 
30406470 
30406480 
30406490 
30406500 
30406510 
30406520 
30406530 
30406540 
30406550 
30406 560 
30406570 
30406580 
30406590 
30406600 
30406610 
30406620 
30406630 
30406640 
30406650 
30406660 
30406670 
30406680 
30406690 
30406700 
30406710 
30406720 
30406730 
30406740 
30406750 
30406760 
30406770 
30406780 
30406790 
30406800 
30406810 
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07E5 


1 


D600 


0874 


TBLIS 

* 

TBLI 


STO 


L2 


ANY£27 


07E-^ 





69E2 




STX 


1 


SLTWD 


07E8 


'o 


6AC3 






STX 


2 


WR0CT61 


07E9 


1 


C400 


0844 


EXIT 


LD 


L 


KEOOO 


07EB 





0302 






STO 


3 


STS 


07EC 


1 


6500 


07E9 




LDX 


LI 


EXIT 


07EE 





C480 


0167 




LD 


I 


LOGBY 


07F0 


1 


4C20 


0840 




BSC 


L 


PDSHXtZ 


07F2 


1 


6500 


05E7 




LDX 


LI 


COMIN 


07F4 





6D00 


OIBB 




STX 


LI 


RQTY 


07F6 





0B08 






XIO 


3 


WRT 


07F7 


1 


40 00 


066C 




BSC 


L 


PRCON 










* 

* ER 


07F9 





6AD2 




ERSE 


STX 


2 


ERSEA 


07FA 





COOl 






LD 




ERSEA 


07FB 





FOCF 






EOR 




KFFE7 


07FC 


1 


4C18 


0781 


^ 


BSC 


L 


SELC2,£ 


07FE 





COCB 






LD 




SLTWD 


07FF 


1 


4C20 


0809 




BSC 


L 


ERSEl, Z 


0801 





6121 






LDX 


1 


/0021 


0802 


1 


C600 


0874 




LD 


L2 


ANYe27 


0804 





1808 






SRA 




8 


0805 





1008 






SLA 




8 


0806 


1 


D600 


0874 




STO 


L2 


ANy627 


0808 





7006 




^ 


MDX 




ERSE2 


0809 





1010 




ERSEl 


SLA 




16 


080A 





6100 






LDX 


1 





080B 





72FF 






MDX 


2 


-1 


080C 





1000 






NOP 






0800 


1 


D600 


0875 




STO 


L2 


ANYS28 


080F 





COBD 




ERSE2 


LD 




BSPSE 


0810 





D303 






STO 


3 


OUT 


0811 





70D5 






MDX 




TBLI 



* TABLE 



SAVE TEST STATUS 



UPDATE PRTR STATUS 



PRINT ONE CHARACTER 
CONTINUE TILL INTRPT 



ERASE LAST CHARACTER 
KEYED IN 



BR IF TABLE EMPTY 



BR IF NOT SHIFTED 
ERASE SHIFTED CHAR 



SET BACKSPACE CODE 
* IN OUTPUT WORD 



* 



TERMINATE MESSAGE ROUTINE 



0812 





0000 




* 
ENDM 


DC 




/oooo 




0813 





C048 






LD 




ANY63 




0814 


1 


6680 


07AC 




LDX 


12 


MROCT&l 




0816 


1 


4C18 


0829 




BSC 


L 


ENDM2f£- 


BR IF TABLE EMPTY 


0818 





6102 






LDX 


1 


2 




0819 





6941 






STX 


1 


ANYe2 




081A 





COAF 






LD 




SLTWD 




081B 


1 


4C18 


0821 




BSC 


L 


ENDMl, 6- 


BR IF LAST SHIFTED 


081D 


1 


EEOO 


0874 




OR 


L2 


ANY£27 




081F 


1 


0600 


0874 


ENOMl 


STO 


L2 


ANY£27 




0821 


1 


C400 


0909 


LD 


L 


REDl 


SET TABLE TERMINATOR 


0823 


1 


0600 


0875 




STO 


L2 


ANYS28 




0825 





C032 






LD 




FUND 




0826 


1 


0600 


0876 




STO 


L2 


ANYE29 




0828 





7002 




# 


MDX 




ENDM3 




0829 





C02E 




ENDM2 


LD 




FUND 


SET TABLE TERMINATOR 


082A 





D030 




^ 


STO 




ANY62 




082B 





C0A2 




ENDM3 


LD 




K0008 


RESTORE PTR RTN 


082C 


1 


D400 


0A2A 




STO 


L 


STS£PTR0 





082E 6200 



LDX 



2 



30406820 
30406830 
30406840 
30406850 
30406860 
30406870 
30406880 
30406890 
30406900 
30406910 
30406920 
30406930 
30406940 
30406950 
30406960 
30406970 
30406980 
30406990 
30407000 
30407010 
30407020 
30407030 
30407040 
30407050 
30407060 
30407070 
30407080 
30407090 
30407100 
30407110 
30407120 
30407130 
30407140 
30407150 
30407160 
30407170 
30407180 
30407190 
30407200 
30407210 
30407220 
30407230 
30407240 
30407250 
30407260 
30407270 
30407280 
30407290 
30407300 
30407310 
30407320 
30407330 
30407340 
30407350 
30407360 
30407370 
30407380 
30407390 
30407400 
30407410 
30407420 
30407430 
30407440 
30407450 
30407460 
30407470 
30407480 
30407490 



082F 


1 


6E00 


05E0 


« 


STX 


L2 


SWl 




30407500 
30407510 


0831 


1 


4C80 


0812 




BSC 


1 


ENDM 


RETURN TO USER 


30407520 










***♦«*«*#«♦«*«*«*«******#«««♦****#********#«* 


30407530 










* 










30407540 










* 






PRINT 


ERROR ROUTINE 


30407550 










* 










30407560 


0833 





0000 




PRDSW 


DC 




/OOOO 




30407570 


0834 





D815 




♦ 


STD 




EMESG£5 


SAVE DATA MESSAGE 


30407580 
30407590 


0835 





690F 




* 


STX 


1 


EMESG 


SAVE MESSAGE ID NO 


30407600 
30407610 










«««««««««««*>|Ilt:«««««>ti««4c««««««««l»«4<I«4: <:««««««« 


30407620 


0836 





4480 


0162 




BSI 


I 


ERROR 


4< 


30407630 


0838 


1 


0845 






DC 




EMESG 


MESSAGE ADDR « 


30407640 


0839 





0000 






DC 






LOOP ON ERR - NONE * 


30407650 










4<4iA«««>*4l««««#4!>>«3|l«4l4««««*«««««««««««««««««<:«« 


30407660 


083A 





6303 






LDX 


3 


3 


RESET MODIFIER WORD CNT 


30407670 


083B 





6B0B 






STX 


3 


EMESG£2 




30407680 


083C 


1 


6700 


0A28 




LDX 


L3 


PTRO 


RESTORE XR3 


30407690 


083E 


1 


4C80 


0833 


* 


BSC 


I 


PRDSW 


RETURN TO USER 


30407700 
30407710 
30407720 


0840 


1 


6D00 


05E5 


PDSWX 


STX 


LI 


MLSCF 




30407730 


0842 





4480 


0161 


* 


BSI 


I 


START 




30407740 
30407750 


0844 




0000 






BSS 


E 






30407760 


0844 





EOOO 




KEOOO 


DC 




/EOOO 


ERROR ID 


30407770 


0845 





0000 




EMESG 


DC 




/OOOO 


MESSAGE ID NO 


30407780 


0846 





0000 






DC 




/OOOO 


HEX OUTPUT 


30407790 


0847 





0003 






DC 




/0003 


DATA ID WORD 


30407800 


0848 





0000 






DC 




/OOOO 


ALPHA ADDR 


30407810 


0849 





0000 






DC 




/OOOO 


ALPHA AOOR 


30407820 


084A 





0000 






DC 




/OOOO 


DSWAS 


30407830 


084B 





0000 




* 
* 


DC 




/OOOO 


DSW S/B 


30407840 
30407850 
30407860 


084C 





0000 




TIMEX 


DC 




/OOOO 


DELAY TIME STORAGE 


30407870 


084D 





OOOB 




ELVEN 


DC 




11 




30407880 










**1fiti:t">i*****H>'**********m***************'>^'ti***** 


30407890 










« 










30407900 










* 






PRINTER TEST SEQUENCE 


30407910 










* 








CONTROL TABLE 


30407920 










* 










30407930 


084E 




0859 




FUNR 


DC 




ANY 


KEYBOARD OPTION 


30407940 


084 F 




08FA 






DC 




TACAR 


TAB £ CARRIER RETURN 


30407950 


0850 




090B 






DC 




UCASE 


UPPER CASE CHARS 


30407960 


0851 




0927 






DC 




LCASE 


LOWER CASE CHARS 


30407970 


0852 




0943 






DC 




COLOR 


COLOR SHIFT ROUTINE 


30407980 


0853 




0959 






DC 




SPNOX 


BACKSPACE AND INDEX 


30407990 


0854 




0977 






DC 




AUCAR 


AUTO CARRIER RETURN 


30408000 


0855 




0992 






DC 




ROCK 


TEST TILT 


30408010 


0856 




09C4 






DC 




ROLL 


TEST ROTATE 


30408020 


0857 




09F6 






DC 




TWIST 


TEST TILT AND ROTATE 


30408030 


0858 





FFFF 




FUND 


DC 




/FFFF 


* 


30408040 










«:ti:(E4«*«#«t<i»>|i«4i4<«««4i«^*:tl««*««*««4i«>K ««>»*«««««»« 


30408050 










* 




y 






30408060 










* 






KEYBOARD OPTION TABLE 


30408070 










* 










30408080 


0859 





0001 




ANY 


DC 




1 


ITCNT 


30408090 


085A 





05FF 






DC 




/05FF 


BLACK 


30408100 


085B 





FFFF 






DC 




/FFFF 


ITCNT 


30408110 


085C 





0000 






DC 




/OOOO 




30408120 


085D 





0000 






DC 




/OOOO 




30408130 


085E 





0000 






DC 




/OOOO 




30408140 


085F 





0000 






DC 




/OOOO 




30408150 


0860 





0000 






DC 




/OOOO 




30408160 


0861 





0000 






DC 




/OOOO 




30408170 
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0862 





0000 


0863 





0000 


0864 





0000 


0865 





0000 


0866 





0000 


0867 





0000 


0868 





0000 


0869 





0000 


086A 





0000 


086B 





0000 


086C 





0000 


086D 





0000 


086E 





0000 


086F 





0000 


0870 





0000 


0871 





0000 


0872 





0000 


0873 





0000 


0874 





0000 


0875 





FFFF 



0876 4480 0164 



DC /OOOO 

DC /OOOO 

DC /OOOO 

DC /OOOO 

DC /OOOO 

DC /OOOO 

DC /OOOO 

DC /OOOO 

DC /OOOO 

DC /OOOO 

DC /OOOO 

DC /OOOO 

DC /OOOO 

DC /OOOO 

DC /OOOO 

DC /OOOO 

DC /OOOO 

DC /OOOO 

DC /OOOO 

DC /FFFF 

* 

* END PROGRAM ROUTINE 

« 

TYEND BSI I END * 

* 
* 





0878 





4220 


KECOD DC 




0879 





3000 


DC 




087A 





2000 


DC 




087B 





1000 


DC 




087C 





0800 


DC 




087D 





0400 


DC 




087E 





0200 


DC 




087F 





0100 


DC 




0880 





0080 


DC 




0881 





0040 


DC 




0882 





0020 


DC 




0883 





0010 


DC 




0884 





4420 


DC 




0885 





8420 


DC 




0886 





2420 


DC 




0887 





OOAO 


DC 




0888 





0120 


DC 




0889 





8120 


DC 




088A 





4120 


DC 




088B 





80A0 


DC 




088C 





4000 


DC 




088D 





8820 


DC 




088E 





8220 


DC 




088F 





8060 


DC 




0890 





8000 


DC 




0891 





4820 


DC 




0892 





40A0 


DC 




0893 





4060 


DC 




0894 





2220 


DC 




0895 





2120 


DC 




0896 





20A0 


DC 




0897 





2060 


DC 




0898 





0820 


DC 




0899 





0420 


DC 




089A 





0220 


DC 




089B 





0060 


DC 


DATE 


02JAN66 15N0V66 


15JUN67 


EC NO. 


415490 419643 


420317 



/4220 
/3000 
/2000 
/lOOO 
/0800 
/0400 
/0200 
/OlOO 
/0080 
/0040 
/0020 
/OOIO 
/4420 
/8420 
/2420 
/OOAO 
/0120 
/8120 
/4120 
/80A0 
/4000 
/8820 
/8220 
/8060 
/8000 
/4820 
/40A0 
/4060 
/2220 
/2120 
/20A0 
/2060 
/0820 
/0420 
/0220 
/0060 



KEYBOARD CODE TABLE 

* 
/ 

1 
2 
3 
4 
5 
6 
7 
8 
9 
$ 



# 

a 
% 

D 

G 

CENT SIGN 

LESS THAN 

LOGICAL OR 

AND 

EXCLAIMATION 

SEMI COLON 

LOGICAL NOT 

PER CENT 

UNDERSCORE 

GREATER THAN 

QUESTION MARK 

COLON 

NUMBERS 

AT 

QUOTE 



30408180 
30408190 
30408200 
30408210 
30408220 
30408230 
30408240 
30408250 
30408260 
30408270 
30408280 
30408290 
30408300 
30408310 
30408320 
30408330 
30408340 
30408350 
30408360 
30408370 
30408380 
30408390 
30408400 
30408410 
30408420 
30408430 
30408440 
30408450 
30408460 
30408470 
30408480 
30408490 
30408500 
30408510 
30408520 
30408530 
30408540 
30408550 
30408560 
30408570 
30408580 
30408590 
30408600 
30408610 
30408620 
30408630 
30408640 
30408650 
30408660 
30408670 
30408680 
30408690 
30408700 
30408710 
30408720 
30408730 
30408740 
30408750 
30408760 
30408770 
30408780 
30408790 
30408800 
30408810 
30408820 
30408830 
30408840 
30408850 
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089C 





9000 


DC 


/9000 


A 




0B9D 





8800 


DC 


/8800 


B 




089E 





8400 


DC 


/8400 


C 




089 F 





8200 


DC 


/8200 







08A0 





8100 


DC 


/8100 


E 




08A1 





8080 


DC 


/8080 


F 




08A2 





8040 


DC 


/8040 


G 




08A3 





8020 


DC 


/8020 


H 




08A4 





8010 


DC 


/8010 


I 




08A5 





5000 


DC 


/5000 


J 




08A6 





4800 


DC 


/4800 


K 




08A7 





4400 


DC 


/4400 


L 




08A8 





4200 


DC 


/4200 


M 




08A9 





4100 


DC 


/4100 


N 




08AA 





4080 


DC 


/4080 







08AB 





4040 


DC 


/4040 


P 




08AC 





4020 


DC 


/4020 


Q 




08AD 





4010 


DC 


/4010 


R 




08AE 





2800 


DC 


/2800 


S 




08AF 





2400 


DC 


/2400 


T 




08B0 





2200 


DC 


/2200 


U 




08B1 





2100 


DC 


/2100 


V 




08B2 





2080 


DC 


/2080 


W 




08B3 





2040 


DC 


/2040 


X 




08B4 





2020 


DC 


/2020 


Y 




08B5 





2010 


DC 


/2010 


Z 




08B6 





OOOO 


DC 


/OOOO 


SPACE 




08B7 





2820 


DC 


/2820 


0-8-2 




08B8 





0008 


DC 


/0008 


EOF 










4 


PRINTER CODE TABLE 




08B9 





D6D6 


TYCOD DC 


/D6D6 


* 




08BA 





BCBC 


DC 


/BCBC 


/ 




08BB 





C4C4 


DC 


/C4C4 







08BC 





FCFC 


DC 


/FCFC 


1 




08BD 





D8D8 


DC 


/D8D8 


2 




08BE 





DCDC 


DC 


/DCDC 


3 




08BF 





FOFO 


DC 


/FOFO 


4 




08C0 





F4F4 


DC 


/F4F4 


5 




08C1 





DODO 


DC 


/DODO 


6 




08C2 





0404 


DC 


/D4D4 


7 




08C3 





E4E4 


DC 


/E4E4 


8 




08C4 





EOEO 


DC 


/EOEO 


9 




08C5 





4040 


DC 


/4040 


$ 




08C6 





OOOO 


DC 


/OOOO 


. 




08C7 





8080 


DC 


/808O 


♦ 




08C8 





C2C2 


DC 


/C2C2 


# 




08C9 





E6E6 


DC 


/E6E6 


a 




08CA 





FEFE 


DC 


/FEFE 


% 




08CB 





F6F6 


DC 


/F6F6 


□ 




08CC 





DADA 


DC 


/DADA 


G 




08CD 





8484 


DC 


/8484 


- 




08CE 





0202 


DC 


/0202 


CENTS SIGN 




08CF 





DEDE 


DC 


/DEDE 


LESS THAN 




08D0 





C6C6 


DC . 


/C6C6 


LOGICAL OR 




0801 





4444 


DC 


/4444 


AND 




08D2 





4242 


DC 


/4242 


EXCLAIMATION 




08D3 





D2D2 


DC 


/D2D2 


SEMI COLON 




08D4 





F2F2 


DC 


/F2F2 


LOGICAL NOT 




08D5 





0606 


DC 


/0606 


PERCENT SIGN 




08D6 





BEBE 


DC 


/BEBE 


UNDERSCORE 




08D7 





4646 


DC 


/4646 


GREATER THAN 




08D8 





8686 


DC 


/8686 


QUESTION MARK 




0809 





8282 


DC 


/8282 


COLON 




08DA 





COCO 


DC 


/COCO 


NUMBERS 




08DB 





0404 


DC 


/0404 


AT 




080C 





E2E2 


DC 


/E2E2 


QUOTE 


DATE 


02JAN66 15N0V66 


15JUN67 






EC NO. 


415490 419643 


420317 







30408860 
30408870 
30408880 
30408890 
30408900 
30408910 
30408920 
30408930 
30408940 
30408950 
30408960 
30408970 
30408980 
30408990 
30409000 
30409010 
30409020 
30409030 
30409040 
30409050 
30409060 
30409070 
30409080 
30409090 
30409100 
30409110 
30409120 
30409130 
30409140 
30409150 
30409160 
30409170 
30409180 
30409190 
30409200 
30409210 
30409220 
30409230 
30409240 
30409250 
30409260 
30409270 
30409280 
30409 290 
30409300 
30409310 
30409320 
30409330 
30409340 
30409350 
30409360 
30409370 
30409380 
30409390 
30409400 
30409410 
30409420 
30409430 
30409440 
30409450 
30409460 
30409470 
30409480 
30409490 
30409500 
30409510 
30409520 
30409530 
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0800 


3C3E 




DC 


/3C3E 


A 




080E 


181A 




DC 


/181A 


B 




080F 


ICIE 




DC 


/ICIE 


C 




0860 


3032 




DC 


/3032 


D 




08E1 


3436 




DC 


/3436 


E 




08E2 


1012 




DC 


/1012 


F 




08E3 


1416 




DC 


/1416 


G 




08E4 


2426 




DC 


/2426 


H 




08E5 


2022 




DC 


/2022 


I 




08E6 


7C7E 




DC 


/7C7E 


J 




08E7 


585A 




DC 


/585A 


K 




08E8 


5C5E 




DC 


/5C5E 


L 




08E9 


7072 




DC 


/7072 


M 




08EA 


7476 




DC 


/7476 


N 




08EB 


5052 




DC 


/5052 







08EC 


5456 




DC 


/5456 


P 




08ED 


6466 




DC 


/6466 


Q 




08EE 


6062 




DC 


/6062 


R 




08EF 


989A 




DC 


/989A 


S 




08FO 


9C9E 




DC 


/9C9E 


T 




08F1 


B0B2 




DC 


/B0B2 


U 




08F2 


B4B6 




DC 


/B4B6 


V 




08F3 


9092 




DC 


/9092 


W 




08F4 


9496 




DC 


/9496 


X 




08F5 


A4A6 




DC 


/A4A6 


Y 




08F6 


A0A2 




DC 


/A0A2 


Z 




08F7 


2121 




DC 


/2121 


SPACE 




08F8 


0303 




DC 


/0303 


LINE FEED 




08F9 


8181 


* 
* 


DC 


/8181 

TAB 


CR 
AND CARRIER RETU 




08FA 


0001 


TACAR 


DC 


1 


ITCNT 




08FB 


85FF 




DC 


/85FF 


BLACK 




08FC 


0002 




DC 


2 


ITCNT 




08FD 


811E 




DC 


/811E 


CR C 




08FE 


3C60 




DC 


/3C60 


A R 




08FF 


6020 




DC 


/6020 


R I 




0900 


3460 




DC 


/3460 


E R 




0901 


2160 




DC 


/2160 


R 




0902 


349C 




DC 


/349C 


E T 




0903 


B060 




DC 


/B060 


U R 




0904 


7441 




DC 


/7441 


N TAB 




0905 


9E3C 




DC 


/9E3C 


T A 




0906 


18B0 




DC 


/18B0 


B U 




0907 


5C3C 




DC 


/5C3C 


L A 




0908 


9C34 




DC 


/9C34 


T E 




0909 


09FF 


REDl 


DC 


/09FF 


RED 




090A 


FFFF 


* 


DC 


/FFFF 










* 
* 




CHARACTER COMPLIMENT 








* 
* 




UPPER CASE 




0908 


0001 


* 

UCASE 


DC 


1 


ITCNT 




090C 


85FF 




DC 


/85FF 


BLACK 




0900 


0002 




DC 


2 


ITCNT 




09 OE 


813E 




DC 


/813E 


CR A 




090F 


lAlE 




DC 


/lAlE 


B C 




0910 


3236 




DC 


/3236 


D E 




0911 


1216 




DC 


/1216 


F G 




0912 


2622 




DC 


/2622 


H I 




0913 


7E5A 




DC 


/7E5A 


J K 




0914 


5E72 




DC 


/5E72 


L M 




0915 


7652 




DC 


/7652 


N 


DATE 


02JAN66 15N0V66 


15JUN67 






EC NO. 


415490 


419643 


420317 







30409540 

30409550 

30409560 

30409570 

30409580 

30409590 

30409600 

30409610 

30409620 

30409630 

30409640 

30409650 

30409660 

30409670 

30409680 

30409690 

30409700 

30409710 

30409720 

30409730 

30409740 

30409750 

30409760 

30409770 

30409780 

30409790 

30409800 

30409810 

30409820 

30409830 

30409840 

30409850 

30409860 

30409870 

30409880 

30409890 

30409900 

30409910 

30409920 

30409930 

30409940 

30409950 

30409960 

30409970 

30409980 

30409990 

30410000 

30410010 

30410020 

30410030 

30410040 

30410050 

30410060 

30410070 

30410080 

30410090 

30410100 

30410110 

30410120 

30410130 

30410140 

30410150 

30410160 

30410170 

30410180 

30410190 

30410200 

30410210 
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0916 





5666 


DC 


/5666 


£ 


U 




0917 





629A 


DC 


/629A 


R 


S 




0918 





9EB2 


DC 


/9EB2 


T 


U 




0919 





B692 


DC 


/B692 


V 


M 




091A 





96A6 


DC 


/96A6 


X 


Y 




09 IB 





A221 


DC 


/A221 


z 


SP 




091C 





FEDA 


DC 


/FEDA 


% 


& 




091D 





DEF2 


DC 


/DEF2 


LES 


INT 




091E 





F6D2 


DC 


/F6D2 


n 


SMI 




09 IF 





D6E6 


DC 


/D6E6 


* 


a 




0920 





E2C6 


DC 


/E2C6 


OTE 


LOR 




0921 





C2BE 


DC 


/C2BE 


a 


UDR 




0922 





8682 


DC 


/8682 


QSN 


CLN 




0923 





4642 


DC 


/4642 


6TR 


EXC 




0924 





0602 


DC 


/0602 


PCT 


CNT 




0925 





09FF 


DC 


/09FF 


RED 






0926 





FFFF 


DC 


/FFFF 














4c 


LOWER 
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823C 




DC 


/823C 




CLN A 




30413130 




0A25 





C225 




DC 


/C225 




% BLACK 




30413140 




0A26 





29FF 




DC 


/29FF 




RED 




30413150 




0A27 





FFFF 




DC 


/FFFF 








30413160 
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* 


30413170 










^.♦♦♦«****«***«:>**«#**#»44*****<;:^:»<:<ssSS* «*«**** 




30413180 










* 












30413190 










« 






PRINTER OUTPUT STATUS 




30413200 










* 








TABLES 




30413210 










« 






PRINTER NO 




30413220 




0A2S 




0000 




BSS 1 


E 






LABEL 


30413230 




0A28 


1 


08FA 


PTRO 


DC 


TACAR 




WORD POINTER 


ADR 


30413240 




0A29 





0002 




DC 


2 




TEST POINTER 


RTN 


30413250 




0A2A 





8000 


* 
* 


DC 


/8000 
/AOOO 
/COOO 




PTR STATUS 
SELECT KBO 
READ KBD NEXT 


STS 


30413260 
30413270 
30413280 










« 




/FCOO- 


•FFFE COUNT FOR INTERRUPT 




30413290 










♦ 




/FFFF 




LOST INT ERROR 




30413300 










« 




/EOOO 




WAIT TYP READ INTERT 




30413310 










* 




/FOOO 




WAIT KBD INT 




30413320 










* 




/8000 




IGNORE 




30413330 




0A2B 





81FF 




DC 


/81FF 




NEXT PTR OUTPUT WORD 


OUT 


30413340 




0A2C 





0001 




DC 


1 




ITERATION COUNT 


ITR 


30413350 




0A2D 





0001 




DC 


1 




SHIFT WORD 


SLT 


30413360 




0A2E 





0000 




DC 






WORDS PRINTED 


NOS 


30413370 




0A2F 





0000 




DC 






LAST ITCNT ADDR PT 


PAD 


30413380 




0A30 


1 


0A2B 




DC 


PTROeOUT 




WRT 


30413390 




0A31 





0900 




DC 


/0900 




WRITE COMMAND 




30413400 




0A32 





0000 




OC 









PTR 


30413410 




0A33 





OFOl 




DC 


/OFOl 




SENSE DSW COMMAND 




30413420 




0A34 





0000 




DC 






SENSE - NO RESET 


SNR 


30413430 




0A35 





OFOO 




DC 


/OFOO 








30413440 




0A36 





0000 




OC 








KEY 


30413450 




0A37 





OCOO 




DC 


/OCOO 




SELECT KEYBOARD CMD 




30413460 




0A38 


1 


0A36 . 




OC 


PTROSKEY 




SEE 


30413470 




0A39 





OAOO 




DC 


/OAOO 




READ KEYBOARD CMD 




304134 80 




0A3A 





0000 




DC 


/OOOO 




ERROR DSW WAS 


ERR 


30413490 




0A3B 





0000 




DC 


/OOOO 




DSW SHOULD HAVE BEEN 




30413500 




0A3C 


1 


0A3E 


ROBS 


DC 


BITSW 








30413510 




0A3D 





3A00 




DC 


/3A00 








30413520 




0A3E 





0000 


BITSW 
* 

* 


DC 


/OOOO 








30413530 
30413540 
30413550 










* 




KEYBOARD 


- CONSOLE SWITCH 




30413560 










* 




STATUS ROUTINE 




30413570 










* 












30413580 










* 




THIS 


ROUTINE PRINTS ANY 




30413590 










* 






CHANGE IN THE STATUS OF 




30413600 










* 






OF 


THE CONSOLE/KEYBOARD 




30413610 
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0A3F 
0A40 
0A41 
0A42 
0A44 
0A45 



0000 
08F3 
F03E 

E400 0A82 
E83C 
4C98 0A3F 



0A47 08EC 
0A48 1 E400 0A82 
0A4A 0035 
0A4B 1 4C20 0A58 

0A4D 1 C400 0641 
0A4F 1 0400 05DD 

0A51 1010 
0A52 1 0400 085C 

0A54 6500 AOOO 
0A56 C02C 
0A57 701A 



0A58 
0A5A 
0A5B 
0A5D 
0A5E 
0A5F 
0A60 
0A61 
0A63 
0A65 
0A66 
0A67 
0A68 
0A6A 
0A6B 
0A60 



4400 0812 

1810 

C400 05E0 

18C1 

4820 

1081 

DOOl 

6500 0000 
1 C400 0B5B 
4810 

6101 

69C1 

C500 084E 

DOBD 

C400 085A 

DOBD 



0A6E 1 6D00 05E0 
0A70 08C7 

0A71 C018 



0A72 
0A73 
0A74 
0A75 



DOOC 
69B6 
1010 
DOOB 



0A76 4480 0163 
0A78 1 0A7B 

0A79 1 4C00 065C 



0A7B 
0A7C 
0A7D 
0A7E 



0000 
0000 
0000 
0000 



0A7F 0000 



0A80 0000 
0A81 1 0A81 
0A82 1000 



* 
* 
SWSET 



swsc 



SWSD 



* 
SWSE 



* 
SWSP 



DC 

XIO 

EOR 

AND 

OR 

BSC 

XIO 
AND 
STO 
BSC 

LD 
STO 

SLA 
STO 

LDX 

LD 

MDX 

BSI 

SRA 

LD 

RTE 

BSC 

SLT 

STO 

LDX 

LD 

BSC 

LDX 

STX 

LD 

STO 

LD 

STO 

STX 
XIO 

LD 

STO 
STX 
SLA 
STO 



LI 



SWITCH. IF NO CHANGE 
IS MADE THEN NOTHING IS 
PRINTED. 



LI 
L 

1 

1 
LI 



LI 



SNRSPTRO 

LAST 

KIOOO 

FIRST 

SWS6T,£- 

SNR£PTRO 
KIOOO 
LAST 
SW SC 1 2 

TWLVE 
RID 

16 
ANY£3 

/AOOO 
KBMES 
SHSP 

ENDM 

16 

SWl 

1 

Z 

1. 

*£1 

/OOOO 

ANYa2 



RTNEPTRO 

FUNR 

ADR6PTR0 

ANY61 

OUTEPTRO 

SWl 
SEE£PTRO 

CNMES 

L0GM64 
STSSPTRO 
16 
FIRST 



SENSE 
CHECK 



DEVICE 

SWITCH 



STATUS 
SETTING 



RETURN IF NOT CNGED 



SENSE DEVICE STATUS 



BR IF IN CONSOLE 



SET ROUTINE NO. 



SET TO SELECT KBD NEXT 
KEYBOARD MESSAGE 
GO PRINT THE SUS 

TERMINATE KBD ENTRY 



CHECK 
BR IF 



IF ANY KBD ENTRY 
TABLE EMPTY 



SET TO LOOP RTN 1 



SET OR CLEAR LOOP R,TN 
DESELECT KEYBOARD 

CONSOLE MESSAGE 

SAVE MESSAGE 

SET PRINTER STATUS 

RESET FIRST INDICATOR 



BSI I LOG * 

DC LOGM ADRS OF MESS * 

******«******«*«***#*«****«****+***** ******** 



« 
LOGM 



BSC 

DC 
DC 
DC 
DC 
DC 



* 
* 

LAST 
FIRST 



DC 
DC 



KIOOO DC 



G03 

/OOOO 
/OOOO 
/OOOO 
/OOOO 
/OOOO 



/OOOO 
FIRST 
/lOOO 



RETURN TO MAINLINE 



LAST KBD/CNSL SW SET 
PROG RESRT INDICATOR 
CONSTANT 



30413620 
30413630 
30413640 
30413650 
30413660 
30413670 
30413680 
30413690 
30413700 
30413710 
30413720 
30413730 
30413740 
30413750 
30413760 
30413770 
30413780 
30413790 
30413800 
30A13810 
30413820 
30413830 
30413840 
30413850 
30413860 
30413870 
30413880 
30413890 
30413900 
30413910 
30413920 
30413930 
30413940 
30413950 
30413960 
30413970 
30413980 
30413990 
30414000 
30414010 
30414020 
30414030 
30414040 
30414050 
30414060 
30414070 
30414080 
30414090 
30414100 
30414110 
30414120 
30414130 
30414140 
30414150 
30414160 
30414170 
30414180 
30414190 
30414200 
30414210 
30414220 
30414230 
30414240 
30414250 
30414260 
30414270 
30414280 
30414290 



0A83 


1 


0A84 


0A84 





5A36 


0A85 





A61A 


0A86 





523E 


0A87 





6232 


0A88 





8100 


0A89 





FFFF 


0A8A 


1 


0A8B 


0A8B 





1E52 


0A8C 





769A 


OABO 





525E 


0A8E 





3600 


0A8F 





FFFF 



0A90 



0643 



KBMES 


DC 


KBMESEl 






DC 


/5A36 


KEYBOARD 




DC 


/A61A 






DC 


/523E 






DC 


/6232 






DC 


/8100 




CNMES 


DC 


/FFFF 


TERMINATOR 


DC 


CNMESSl 






DC 


/1E52 


CONSOLE 




DC 


/769A 






DC 


/525E 






DC 


/3600 






DC 


/FFFF 


TERMINATOR 


****** 


*************************************** 


END 


TYCUS 
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C R 

NAME 

AOR 

ALL 

ANY 

AUCAR 

BASIC 

BEGIN 

BITSM 

BSPSE 

BSYOK 

CMPRE 

CNMES 

CNVRT 

COLOR 

COM IN 

COMIX 

COM 1 3 

DSWAS 

DSWBS 

DSWBY 

DSWIT 

ELVEN 

EMESG 

END 

ENDM 

ENOMI 

ENDM2 

ENDM3 

ERIND 

ERLCK 

ERR 

ERROR 

ERSE 

ERSEA 

ERSEl 

ERSE2 

ERSLC 

EXEC3 

EXEC7 

EXEC9 

EXIT 

FIRST 

FUND 

FUNR 

F0200 

GO 

GO 3 

I 

ILO 

ILl 

IL2 

IL3 

ILA 

INERR 

ITR 

KAOOO 

KBDRQ 

KBDSV 

KB02 

KBEOO 

KBMES 

KCNSL 

KCOOO 

KECOD 

KEFFF 

KEY 



S S 

VALUE 
0000 
0734 
0859 

0977 

0735 

0160 

0A3E 

07CD 

0755 

07D0 

0A8A 

07AE 

0943 

05E7 

0639 

05FD 

076F 

0771 

0760 

063D 

084D 

0845 

0164 

0812 

0821 

0829 

082B 

0640 

0166 

0012 

0162 

07F9 

07CC 

0809 

080F 

07C9 

0680 

0693 

0696 

07E9 

0A8I 

0858 

084E 

0772 

0646 

065C 

069C 

017A 

018A 

019A 

OlAA 

OIBA 

075F 

0004 

063C 

0603 

062A 

060A 

0642 

0A83 

0774 

063F 

0878 

0773 

OOOE 



REFERENCE 
REFERENCES 
06DE,06E3,0A6A 
072E 



072E 

0615,0616, 0648, 065A,065E,07E3,07E 5, 0802, 0806, 0800,081 3, 08 19,0810 

081F,O823,0826,082A,084E,OA52,0A6 3,0A6B 

nnsA 



0854 

072A 

0643 

06B9,0A3C 

080F 

075E 

07B1 

0A71,0A8A 

07B4 

0852 

0639, 073A, 0781, 07F2 

0610,0623,0630 

05F8 

0742, 0746, 0788, 0788, 078F 

0776, 0777, 0795, 079A 

0752,0757 

05EA,05FF, 0607, 061F, 0625, 062C, 0632 

06A4,06A8 

07BE, 0834, 0835, 0838, 0838 

0876 

0831, 0A58 

081B 

0816 

0828 

0618, 0638, 064D,066C, 0760 

0637,0762,0768 

0836 

07BB 

07F9,07FA 

07FF 

0808 

07B9 

0678 

07A1 

0687, 068A,06CA, 0714 

07DF,07EC 

0646,0A44,0A75,0A81 

0734,0825,0829 

0604,0609, 0734, 0A68 

0796, 079C 

05DE,05E3,05E4 

0A79 

06BF , 06C 1 , 06E 1 , 0704, 070B , 07 17 ,07 ID 



066D 
0660 
05FB 
05ED 
05F3 
0604 
0608 
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07AE 
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KEYBD 


07A3 


0685 




KEYER 


0636 


0602,0609,0629 




KEOOO 


0844 


05F6,07E9 




KFFE7 


07Ca 


07FB 




KFFOO 


0770 


0713 




KFOOO 


07CF 


05F1,0789 




KF800 


069E 


068F 




KOCOO 


076E 


0754,0759 




KOOOl 


069F 


0681,0684 




K0008 


07CE 


0828 




KIOOO 


0A82 


0A42,0A48 




K4200 


063B 


0620,0635 




K8000 


063E 


0622,0628,0779 




LAST 


0A80 


0A41,0A4A 




LCASE 


0927 


0851 




LOG 


0163 


0A76 




LOGBY 


0167 


0736, 07EE 




LOGM 


0A7B 


0A72,0A78 




LOWER 


07C7 


07C5, 0702,0708 




HARK 


06A0 


0755 




MARKE 


0731 


0720 




HARKG 


06E3 


06A6,070E 




MARKL 


06E5 


0602 




MARKN 


0712 


0709 




MARKP 


06FD 


06E7,06EE,06FC 




HARKQ 


06FF 


06E8 




HARKR 


0701 


06E9 




HARKS 


070A 


0706 




HARKT 


06B4 


06AD 




MARKU 


06B5 


06AC,06B4 




MARKZ 


06FC 


06F6 




MARKl 


06BB 


06C4,06C9 




HARK2 


06CB 


06DB 




MARK3 


06CD 


072B,072F 




HARK4 


06CE 


0733 




HARK5 


0609 


071A,0726 




MLSCF 


05E5 


0698, 06AE,06F8, 0840 




NCAP 


07C8 


07B6 




NOCP 


07C5 


0787 




NOIN 


0775 


068B 




NOS 


0006 


0663,06E0,070A,070C,071C,071F 




OUT 


0003 


06C3,0712,0706,0810,OA30,OA6D 




PAD 


0007 


0664,0608,0600,0720,0721 




POSHX 


0840 


O74E,07F0 




PID 


05DC 


0645 




PRCON 


066C 


0668,0696, 0769, 077F, 0798, 07F7 




PRDSW 


0833 


074A,075C, 0765, 0770, 079F,07A9,07C2 




PTR 


OOOA 


0741, 075 1,0775, 0787, 0794, 07 A4 




PTRO 


0A28 


05E8, 0648, 065C, 0674, 06 88, 0694, 06CE 
082C , 083C , OA 30 , 0A38 , 0A40, 0A47 ,0A67 




RAD 


050E 






RDBS 


0A3C 


06B7 




RDY2 


074C 


0738 




READY 


0736 


0691,074C 




REOl 


0909 


0821 




RESTO 


0690 


0677,0693 




RID 


05DD 


O64F,066F,06AA,06D0,06EC,06F2,0A4F 




RLCF 


0168 






ROCK 


0992 


0855 




ROLL 


09C4 


0856 




RQKB 


OIBC 


0783 




RQTY 


OIBB 


073C,07F4 




RTN 


0001 


060E,06CE,06E5,06EA,06FO,OA67 




RTNSW 


0165 


06B0,06F4 




SEE 


0010 


060C,07A3,0A70 




SELC 


0793 


078D 




SELCl 


079E 


0792 




SELC2 


0781 
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SET 

SLT 

SLTWD 

SNR 

SPNDX 

START 

STS 

SVC 

SVKB 

SWSC 

SWSD 

SWSE 

SWSET 

SWSP 

SWO 

SWl 

SW2 

SW3 

TACAR 

TBLI 

TBLIS 

TBLIZ 

TERM 

TIMEX 

TWIST 

TWLVE 

TYCOD 

TYCUS 

TYEND 

TYPIT 

TYPSV 

UCASE 

WRDCT 

WRT 



07EO 07DB 

0005 0661, 06E2, 0703, 0705 

07CA 613,0669,07D9,07E7,07FE,081A 

OOOC 0A40,0A47 

0959 0853 

0161 069A,06B2,06FA,0842 

0002 05F0,05F5,05FE, 0608,06 IE, 0628,0648, 0676, 0688, 0690, 0694, 078A,07EB 

082C,0A73 
067E 
0785 
0A4B 



0688 

OIBD 

0A58 

0A67 

0A6E 

0A3F 

0A72 

050F 

05E0 

05 El 

05E2 

08FA 

07E7 

07F5 

07E3 

05E6 

084C 

09F6 

0641 

08B9 

0643 

0876 

0750 

061E 

0908 

07AB 

0008 



O672,068D,0A45 
OA57 



0651, 0656, 06A0, 0728, 082F,0A5B,0A6E 



084F,0A28 

0811 

07DE 

07E2 

0724 

0857 

0600, 0671, 0A40 

07D0 

0A90 
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0744 

05FC 

0850 
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